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IDENTIFICATION 


PRODUCT CODE: AC-E188A-MC 

PRODUCT NAME: CVDLAAO DLV11-J TEST 

PRODUCT DATE: MAY 1978 

MAINTAINER: DIAGNOSTIC ENGINEERING 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 


SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1978 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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GENERAL PROGRAM INFORMATION. 


PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
DLV11-J SERIAL INTERFACE. 
TESTING IS DONE IN TWO DISTINCT PHASES: 


1. ALL SELECTED CHANNELS PER DLV11-J MODULE ARE TESTED INDIVIDUALLY 


2. THE DLV11-J MODULE IS TESTED AS A WHOLE FOR CHANNEL INTERACTION 
PROBLEMS. THIS DIAGNOSTIC IS DESIGNED TO TEST AND DETECT 
ERRORS TO THE LOGIC LEVEL (NOT TO THE CHIP LEVEL). 


THIS DIAGNOSTIC OPERATES UP TO 2 DLV11-J SERIAL LINE INTERFACES 

CONFIGURED AT CONSECUTIVE BASE ADDRESSES. 

THE PROGRAM WILL DO AUTO-SIZING IF THE DEVICE MAP ‘SDEVM" = 0. 

ALTERNATELY, THE OPERATOR CAN SELECT OR DESELECT INDIVIDUAL MODULES 

& CHANNELS BY SETTING THE PROPER BITS IN ‘'SDEVM' (SEE PROGRAM OPTIONS SEC. 2.4) 
BEFORE RUNNING THE PROGRAM. 

BY THIS METHOD, THE PROGRAM WILL BYPASS AUTO-SIZING AND TEST ONLY 

THOSE MODULES/CHANNELS IT FINDS IN SDEVM. 


IN EITHER CASE, THE PROGRAM WILL PRINT OUT ALL MODULES & CHANNELS 
TO BE TESTED BEFORE PROCEEDING. 


THE OPERATOR MUST INSTALL DATA WRAP AROUND CONNECTORS TO DO 
DATA TESTING. TO BYPASS DATA TESTS, THE OPERATOR MUST MODIFY 
"SUSWR® (USER SWITCH REGISTER) , SEE PROGRAM OPTIONS SEC. 2.4) 


THE DEFAULT ADDRESSES & VECTORS ARE AS FOLLOWS: 
177560 -CONSOLE INTERFACE DEVICE ADDRESS 


176500 -FIRST SERIAL CHANNEL ADDRESS OF UP TO 8 CONSECUTIVE 
SERIAL LINE DEVICES. 


60 - VECTOR FOR CONSOLE DEVICE INTERFACE. 
300 - VECTOR FOR FIRST OF 16 DEVICES. 


THIS PROGRAM IS DESIGNED TO RUN ON ANY Q-BUS PDP-11 WITH 4K OF 
MEMORY AND A DLV11-J (Q-BUS) MODULE. IT CAN RUN UNDER XXDP & 

APT MONITORS, AND ON PROCESSORS WITH NO HARDWARE 

SWITCH REGISTER. 


SEQ 0003 





Cvo 
Cvo 


7 
CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 6 CVC 
CVDLAA.P11 11=MAY=78 00:00 SEQ 0004 Cvo 


1.2 SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 


ANY Q-BUS PDP-11 FAMILY PROCESSOR 

4K MEMORY - MINIMUM 

A SPECIAL DATA WRAP AROUND CONNECTOR OR EQUIVALENT 
(REQ'D IF DATA WRAP AROUND TESTS DESIRED) 

IF CHANNEL 3 IS CONFIGURED AS THE CONSOLE, THE FOLLOWING 

TESTS WILL BE BYPASSED ON CHANNEL 3: 


TESTS 6 THRU 12 
TESTS 14 THRU 17 
TESTS 21 & 22 


SOFTWARE REQUIREMENTS: 


THIS DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF THE 
FOLLOWING WAYS: 

STAND ALONE 

WITH APT MONITOR 

WITH XXDP MONITOR (CHAINABLE IF RENAMED TO .BIC EXTENSION) 


THIS DIAGNOSTIC IS NOT DESIGNED TO RUN WITH THE 
DIAGNOSTIC SUPERVISOR. 


RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MD-11-DZZMA 
SYSMAC MD-11-DZQAC 


DIAGNOSTIC HIERARCHY PREREQUISITES. 

NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS, BUT 
THE PROCESSOR, MEMORY, AND BUS ARE ASSUMED TO BE FULLY 
OPERATIONAL. 


ASSUMPTIONS. 


THIS DIAGNOSTIC ASSUMES THAT THE OPERATOR HAS INITIALIZED 
LOCATION *$USU'R' AND *S$DEVM' TO THE PROPER VALUES. (SEE SEC. 2.4) 
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OPERATING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 
“a PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 


THERE ARE 2 STARTING LOCATIONS FOR THIS DIAGNOSTIC: 
1. LOCATION 200 FOR ALL NORMAL TESTING STARTS & RESTARTS. 
2. LOCATION 400 FOR INTERRUPT VECTOR DEBUG... OFFLINE ONLY. 


THE 400 START SHOULD BE USED ONLY TO DEBUG FAULTY VECTOR ADDRESSES 
PUT OUT BY THE DV11-J DURING INTERRUPTS. 

STARTING AT 400 WILL CAUSE THE ENTIRE VECTOR AREA, EXCEPT THAT 
NEEDED BY SYSMAC, TO BE OVERWRITTEN & TO POINT TO A COMMON SERVICE 
ROUTINE TO ENABLE LOOPING ON THE PROBLEM. 


AS SOON AS TESTING STARTS, THE OPERATOR CAN CHANGE THE SWITCH 
REGISTER ONLY BY A ‘BREAK’ & MANUALLY LOADING LOCATION 176 (SWREG) 


WITH THE DESIRED CONTENTS (SEE SEC. 2.3) THEN DOING A ‘P* TO PROCEED. 


IT IS IMPORTANT THAT WHEN GOING BACK TO NORMAL TESTING A FRESH 
LOAD OF THE PROGRAM BE PERFORMED TO RESET THE VECTOR AREA. 


THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
BIT 8 IN SWREG AND THE TEST NUMBER (IN OCTAL) IN BITS <7:0>. 
(NOTE: ALL TESTS PREVIOUS TO THE SELECTED 
ONE ARE EXECUTED WITHOUT ITERATIONS.) 


SPECIAL ENVIRONMENTS. 

THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UDER APT,XXDP MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 

OPERATIONAL SWITCH SETTINGS 

THE SOFTWARE SWITCH REGISTER (LOC. 176) IS USED FOR ALL 


OPERATIONAL SWITCH SETTINGS. 
THIS CAN BE ACCOMPLISHED IN THE FOLLOWING WAY: 


SEQ 0005 
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1) TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER 
tll INTO LOC. 176 AT SELECTED POINTS WITHIN THE 
PROGRAM. 


2) THE MACHINE WILL THEN TYPE:" SWR=XXXXXX NEW=" (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE ‘*NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE GF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A <CR>. (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE 
DIGITS ARE TYPED THE LAST 6 WILL BE USED. 

IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


IF A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 

THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 


THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 
SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 


HALT ON ERROR 

LOOP ON TEST (TO BE USED ONLY WHILE TESTING IN PROGRESS) 

INHIBIT ERROR TYPEOUTS 

ENABLE PERFORMANCE REPORTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

NUMBER OF TEST TO LOOP ON (USED WITH BIT 8) 
(ALL TESTS PREVIOIUS TO THE SELECTED TEST 
ARE EXECUTED FIRST WITH 1 ITERATION ONLY) 


ee ee ee 
N®WOO—MWHhuU 
o 
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2.4 PROGRAM OPTIONS. 


THIS PROGRAM REQUIRES THE ADDRESS OF THE FIRST RCSR (STORED AT '$BASE") AND 
ITS INTERRUPT VECTOR (STORED AT ‘SVECT1"). IT WILL BE ABLE 
TO ADDRESS ANY DLV11-J STARTING AT THE SPECIFIED BASE ADDRESS 
THRU 2 CONSECUTIVE MODULES. 
EXAMPLES: $BASE: 176500 (DEFAULT) 
$VECTI: 300 (DEFAULT) 


LOCATION *SDEVM' IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
NUMBERS ARE PRESENT AND WILL BE TESTED. 


SDEVM (BITS 15 THRU 8 NOT USED) 
!=---MODULE 2------- len--- MODULE 1------ ! 
So tM ee Oe ee Ree 6 ES SE! RD aes BIT 


(AR BRRASASASRASASASARASARAASLASASERSARSARAAAASARSSAR EERE SASSESS AAS ASSES A SESE SESS EES SS 
! 1 ' ' ' ' ' ' ' 3 ' 2 ! 1 ' 0 ' 3 ' 2 t 1 ' 0 ' CHANNEL 
' ' ' ' ' ' ' ! | ' ' ' ' ' ' ' ' 
AP SRRRRRSRRRERARASAALALESASAALASELAESASESESASERS RSE ESAS SESSA SERRA SAAS ES ERLE SSS SO 
! ! i ' ' 


A BIT MAP CAN BE ENTERED AT ‘SDEVM' PRIOR TO STARTING THE PROGRAM. 

IF *SDEVM' IS LEFT AT ITS DEFAULT VALUE (0), THE PROGRAM WILL DO AUTO-SIZING 
BEGINNING AT THE DEVICE ADDRESS IN ‘SBASE' & WILL SETUP ‘SDEVM* ACCORDINGLY. 
IN EITHER CASE, THE PROGRAM WILL TYPE OUT A LIST OF ALL THE 

MODULES/CHANNELS TO BE TESTED BEFORE PROCEEDING. 


NOTE: SIZING IS PERFORMED ONLY ONCE AT THE BEGINNING OF THE PROGRAM. 
IF $DEVM IS TO BE CHANGED, THE PROGRAM MUST BE RESTARTED AT 200 
FOR IT TO BE EFFECTIVE. OTHERWISE, SDEVM WILL BE IGNORED. 


OPTIONS 
LOCATION $USWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE VALUES 
IN THIS WORD MUST CONFORM TO THE ACTUAL BOARD CONFIGURATION. 


SUSWR 
BIT POSITION DEr INITION DEFAULT VALUE 
0 # OF DATA BITS TRANSMITTED 1 = 8 BITS 
0 = 7 BITS, 1 = 8 BITS 
1 PARITY ENABLED 0 = NO 
2 EVEN ODD PARITY 0 = ODD 
3 BREAK GENERATION ENABLED 1 = YES 
4 RUN DATA WRAP AROUND TESTS 1 = YES 
<11:9> CONSOLE DEVICE 1 = YES = CONSOLE ON MODULE 1, CHAN. 3 
<11:9> = 1 = CONSOLE ON MODULE 1 
<11:9> = 2 = CONSOLE ON MODULE 2 


IMPORTANT NOTE: FOR DIAGNOSTIC PURPOSES, ALL CHANNELS MUST BE 
CONFIGURED THE SAME, EITHER 7 OR 8 BITS. 
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SUMMARY OF DEVICE ADDRESSES & VECTORS. 


MODULE #1 


MODULE #2 


CONSOLE DEVICE 


SUMMARY OF USER 


SBASE 
$VECT1 
$TKS 
TKVEC 
TPVEC 
SUSWR 
SDEVM 
SWREG 


EXECUTION TIMES. 


EXECUTION TIMES FOR AN LSI~11 PROCESSOR WITH ONE DLV11-J MODULE AT SHIPMENT CONFIGURATION: 


CHANNEL 


CHANNEL 


DEV ADDRESS 
(RCSR) 


$TKS 


LOCATIONS & DEFAULTS. 
DEFAULT 
176500 

300 
177560 

60 


1250 
1244 
1144 


1220 
1252 
176 


CH. 0,1,2 
CH. 3 (CONSOLE) 


ARE: FIRST PASS- 
ADDITIONAL PASSES 90 SEC 


THE TEST TIME IS BAUD RATE DEPENDENT; HIGHER BAUD RATES RESULT IN 
SHORTER PASS TIMES. 


POWER FAIL. 


64 
1031 
0 

0 


AT 9600 BAUD. 
AT 300 BAUD. 


30 SEC 


VECTORS 
XMIT 


$VECT1+00 S$VECT1+4 
+10 +14 


TKVEC=60 TPVEC=64 


FOR CONSOLE DEVICE ON MODULE UNDER TEST 
FOR CONSOLE DEVICE ON MODULE UNDER TEST 
FOR CONSOLE DEVICE ON MODULE UNDER TEST 
SEE SEC. 2.4 
SEE SEC. 2.4 
SEE SEC. 2.5 


AUTO START FROM POWER FAIL IS NOT IMPLEMENTED IN THIS PROGRAM. 


SEQ 0008 
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3.0 ERROR INFORMATION. 
3.1 


SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4K OF MEMORY THE 
ERROR TYPEOUT IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 
IS AS FOLLOWS: 


TEST# PC 

WHERE ALL VALUES TYPED ARE OCTAL. 

THE ADDRESS AND VECTOR REFER TO THE FAILING CHANNEL. 
FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED 


BITS 15,13,10 AND 9 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


BIT 15 SET: CAUSES THE PROGRAM TO HALT IN THE ERROR ROUTINE. 
IF THE PROGRAM IS CONTINUED, IT WILL PROCEED 
FROM WHERE IT HALTED. 

BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 

BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 


BIT 9 SET: CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G < G> FUNCTION. 
REFER TO SECTION 2.3 FOR DETAILS. 


ERROR HALTS. 


Www wo wow wo wo VO VUWOwWWO VU HWUWwWvVUVUWwWwWuwuwuwuuwuwwowwuwuwnuwws 


THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
IS EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER (SWREG) IS SET 
WHEN AN ERROR OCCURS. 
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4.0 PERFORMANCE AND PROGRESS REPORTS. 


4.1 PERFORMANCE REPORTS. (BIT 12 SET IN THE SWITCH REGISTER 'SWREG') 


AS EACH CHANNEL (4 CHANNELS/DLV11-J) COMPLETES ONE PASS OF 
THE DIAGNOSTIC THE FOLLOWING ITEMS ARE TYPED: 


"CSR:_____* : THE BASE ADDRESS OF THE LINE UNDER TEST 

"VECTOR:__' : THE ASSOCIATED VECTOR 

"ERRORS:__' : THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 
ON THIS PASS. 


AFTER ALL MODULES & CHANNELS TO BE TESTED HAVE BEEN EXERCISED, 
AN END PASS STATEMENT IS TYPED: 


“END PASS# 


EXAMPLE OF PRINTOUT ASSUMING: 2 DLV11-J MODULES 
ALL CHANNELS ENABLED 
SEPERATE CONSOLE DEVICE 
NO ERRORS 


CVDLAAO DLV11-J TEST 
SWR= 000000 NEW= 10000<CR> (ENABLE PERFORMANCE REPORTS) 


Oomwwwwwo wo NH WUOwWwWvV KN VK8VNVuKNINNuNwWWOww 


a 


WILL TEST: 


MODULE 1 CHANNEL 0 1 2 3 
MODULE 2 CHANNEL 0 1 2 3 


** PHASE 1 SUMMARY ** 
: 176500, VECTOR: 000300, ERRORS: 
: 176510, VECTOR: 000310, ERRORS: 
: 176520, VECTOR: 000320, ERRORS: 
: 176530, VECTOR: 000330, ERRORS: 


** PHASE 2 SUMMARY ** 
: 176500, VECTOR: 000300, ERRORS: 


** PHASE 1 SUMMARY ** 
: 176540, VECTOR: 000340, ERRORS: 
: 176550, VECTOR: 000350, ERRORS: 
: 176560, VECTOR: 000360, ERRORS: 
: 176570, VECTOR: 000370, ERRORS: 


** PHASE 2 SUMMARY ** 
: 176540, VECTOR: 000340, ERRORS: 


PASS # 1 
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5.0 DEVICE REGISTERS. 10 


ee. Se! ES te ee 9 8 7 6 5 4 3 2 1 0 

RETA RA EERE AE EEE E EET E Eee eee tee eee e ee eee 
RCSR! : ; : : : : : 'RCVR!RCVR! : ; : : 'RDR ! 
' ' i i i \ i \ 'DONE'IE ! i i i i ‘ENB ! 
RRR AREER AREER ARATE EAE REET EEE EEE E Eee eee ee eee eee eee eee 
RBUF'ERRO!OR '!FR !P ! : ; : : RECEIVER DATA BUFFER : 
'R ‘ERR !'ERR !ERR ! : ; : ; : 
REA A AREER AERA REET ETAT TEETER E Eee eee teeta eee 
TCSR! : : : : : ; ; 'XMIT!IXMIT! : : : : 'BREA! 
i i i i i i i i iRDY ‘IE ! 1 i i 1 1K i 
RRAAER EERE ERA AEE EEE A TEE EEE TEER E Eee eee eee eee eee REE 
TBUF ! ; : : : : : : : TRANSMITTER DATA BUFFER ; 
i i 1 i i i i \ \ 1 
CRATER EERE RRA AEA T EET E EERE EE eee eee ee eee eee ee eee 

\ \ ' ' ' 

i i i i i 


NOTES: 


1. RCSR AT BASE ADDRESS ($BASE) 
RBUF AT $BASE+2 
TCSR AT S$BASE+4 
TBUF AT S$BASE+6 


BLANK BOXES INDICATE UNUSED AND RESERVED 
BIT POSITIONS. SEE THE LISTING FOR AN 
EXPLAATION OF THE BITS. 


ORERR = OVERRUN ERROR 
FRERR = FRAMING ERROR 
PERR = PARITY ERROR 


RR tt 8 3 2 BO so 
CSOOCCSCOCOCCOCOCOCCCCOCOCOCOCOCOCOCOCOCOOOCOCOOCOOCOCOOCOCOOCOOCOOCOOCOOCOOCOCOOCOCOCOCOCOCOOCOCOCOO 
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6.0 SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 
PHASE 1 TESTS 


TEST \ ADDRESSABILITY 


THIS TEST VERIFIES THAT ALL 4 REGISTERS OF THE CHANNEL 
UNDER TEST RESPOND) TO THEIR ADDRESSES. 


THE FOLLOWING 3 TESTS TEST ALL ‘READ WRITE’ BITS 
TEST 2 BREAK - TCSR 0 SET, CLEAR, RESET 


3 XMITIE - TCSR 6 SET, CLEAR, RESET 


TEST 4 RCVRIE - RCSR 6 SET, CLEAR, RESET 


TEST 5 XMITRDY - TCSR 7 - IS SET BY INIT 


6 XMIT RDY - TCSR 7 = CLEARS WHEN TBUF IS LOADED 
WITH A CHARACTER AND THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


7 OUTPUTTING A CHAR FROM TBUF (WITH WRAP AROUND ens ry 
RESULTS IN  RCVRDONE SETTING WITHIN 
REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS THE BIT. 


10 RCVRDONE IS CLEARED BY SETTING READER ENABLE 
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TEST 13 TRANSMITTER INTERRUPT LOGIC TEST 
LOGICALLLY THIS IS 4 SEPARATE TESTS 
A) DOES TRANSMITTER INTERRUPT LOGIC WORK 
B) AT PRIORITY OF 0 


C) AND ONLY ONCE 
D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


TEST 14 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 
OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN 
CHARACTER MODE. 


TEST 15 TEST DATA WRAP AROUND: FLAG MODE. 


TEST 16 TEST DATA WRAP AROUND: INTERRUPT MODE. 


TEST 17 TEST BREAK GENERATION LOGIC TRANSMIT KNOWN CHAR 


TRANSMIT KNOWN CHAR WITH BREAK SET 
AND COMPARE RECEIVED WITH 0 


TEST FOR FRAMING ERROR ON BREAK 


IF PARITY IS ENABLED AND ODD PARITY IS SELECTED, 
CHECK TO BE SURE PARITY ERROR WAS GENERATED 


IF PARITY IS ENABLED AND EVEN PARITY IS SELECTED, 
CHECK TO BE SURE NO PARITY ERROR OCCURRED 


TEST 20 NOT A TEST - SEND BACK TO LOOP 


PHASE 2 TESTS 


TEST 21 TEST THAT CHANNELS INTERRUPT AT ASSIGNED PRIORITY 


SRB BRB MM HM HM BMBOOOODOCODOCOCDCCOCOCVOOCOCCOCCOCCCOCOCOOCOCOCO 


— ts os I os | = SS = os I SS = SS SS os SS SS = I SS = I a SI oS St PS I SS OD OS oO os 
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000011 


177776 


177774 
177772 
177570 
177570 


000000 


000007 


000000 
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«TITLE CVDLAAO DLV11-J TEST 
;*COPYRIGHT (C) 1978 
;*DIGITAL EQUIPMENT CORP. 
esrrewry MASS. 01754 


:SPROGRAR BY GREGORY GLEZMAN & GARY PAPAZIAN 


: STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
> *PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
-* 


pepe OPERATIONAL SWITCH SETTINGS 
SWITCH 


* 

* 

; HALT ON ERROR 

i LOOP ON TEST 

;* INHIBIT ERROR TYPEOUTS 
;@ INHIBIT ITERATIONS 

;@ BELL ON ERROR 

s# LOOP ON ERROR 

:* 8 LOOP ON TEST IN SWR<7:0> 
“SBTTL BASIC DEFINITIONS 


s*INITIAL AbuXcSS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV. I0T,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


: *MISCELLANEOUS DEFINITIONS 
HT= 11 ;;CODE FOR HORIZONTAL TAB 
LF= ;;CODE FOR LINE FEED 
CR= 1 ;;CODE FOR CARRIAGE RETURN 
CRLF= 0 ;:CODE FOR CARRIAGE RETURN-LINE FEED 
PS= ;;PROCESSOR STATUS WORD 
-EQUIV 
STKLMT= :STACK LIMIT REGISTER 
PIRQ= 3;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= > HARDWARE SWITCH REGISTER 
DDISP= 177570 : HARDWARE DISPLAY REGISTER 


:*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 ;;GENERAL REGISTER 
R1= ;;GENERAL REGISTER 
R2= ;;GENERAL REGISTER 
R3= ;;GENERAL REGISTER 
R4= >;GENERAL REGISTER 
R5= 7:GENERAL REGISTER 
R6= >: GENERAL REGISTER 
R7= 7:GENERAL REGISTER 
SP= 37 STACK POINTER 
PC= 3;PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ; PRIORITY LEVEL 0 


SEQ 0014 
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000040 PRI= ;;PRIORITY LEVEL 
PR2= 7 ;PRIORITY LEVEL 
PR3= >;PRIORITY LEVEL 
PR4= ;;PRIORITY LEVEL 
PR5= ;;PRIORITY LEVEL 
PR6= ;;PRIORITY LEVEL 
000340 PR7= ;;PRIORITY LEVEL 


3*'"SWITCH REGISTER'’ SWITCH DEFINITIONS 
SW15= 00000 


100000 


000001 
SWO09,SW9 
SW08 ,SW8 
SWO7,SW7 
SW06 , SW6 
SWOS,SW5 
SWO4,SW4 
SW03,SW3 
SWO2, SW 
° SWO1,SW1 
-EQUIV SWO00,SWO 


:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 ohhh 100000 


ows 
noun 


000001 
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-EQUIV BIT06,BIT6 
~-EQUIV BITOS,BITS 
-EQUIV BITO4,BIT4 
-EQUIV BIT03,B1T3 
-EQUIV BITO2,BIT2 
~-EQUIV) BITO1,BIT1 
-EQUIV B1T00,B1T0 


s*BASIC ‘'CPU'' TRAP VECTOR ADDRESSES 
000004 ERRVEC= 4 3: TIME OUT AND OTHER ERRORS 
000010 RESVEC= 7;RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC s3°T" B17 
000014 TRTIVEC= 3; TRACE TRAP 
000014 BPTVEC= 3 :BREAKPOINT TRAP (BPT) 
000020 IOTVEC= 3: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
000024 7:POWER FAIL 
000030 7: EMULATOR TRAP (EMT) **ERROR** 
000034 3: ''TRAP'’ TRAP 
000060 3: TTY KEYBOARD VECTOR 
000064 3: TTY PRINTER VECTOR 


64 
000240 PIRQVEC=240 3;PROGRAM INTERRUPT REQUEST VECTOR 


000004 ILLMEM= 4 
000001 ADRS=_  R1 
176500 DLADDR= 176500 


; THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS 
177777 SET= =1 


000000 CLR= 0 
000001 TRUE= 1 





CVDLAAO DLV11-J TEST 


CVDLAA.P11 


MACY11 30A(1052) 
11=-MAY=78 00:00 


000200 
000100 


000001 


100000 


010000 


000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


. « 
30-JUN-78 10:10 PAGE 19 


BASIC DEFINITIONS 


SRE ERE EERE EEE EEE EERE TERRE 


; RCSR REGISTER BIT NAMES 


SERRE EERE EEE EEE EERE EERE ERE EKER EE 


; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
RCVRDONE= 
RCVRIE= 

; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
RDRRUN= 


wo 
_— 
4 
— 
~ 


ooo = 
NOOO—WwW 


; RECEIVER DONE 
; RECEIVER INTERRUPT ENABLE 


+4 St ot st st 


oOo 
oa 


; READER RUN 


CTR ERE REE EERE EAE EERE EEE ERE AERA AERA R AREER 


; RBUF REGISTER BIT NAMES 


SPREE EERE REAR ERE EERE EAE RARE AERA 


ERROR= 
ORERR= 
FRERR= 
PERR= 

; UNUSED 
; UNUSED 
; UNUSED 
; UNUSED 
RDATA7= 
RDATA6= 
RDATA5S= 
RDATA4= 
RDATA3= 
RDATA2= 
RDATA1= 
RDATAO= 


BIT15 ; ERROR INDICATOR 
BIT14 ; OVERRUN ERROR 

; FRAMING ERROR 

; PARITY ERROR 


RECEIVED DATA BITS 


SEQ 0017 
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. 11-MAY-78 00:00 BASIC DEFINITIONS 


STREAK REE EERE EE EEE 


; TCSR REGISTER BIT NAMES 
PRR RRR ETE E ETRE ECE E EEE EE EE TEER EEE EERE REE EEE Eee 
; UNUSED 
; UNUSED 
; UNUSED 


000200 ; TRANSMITTER READY 
000100 ; TRANSMITTER INTERRUPT ENABLE 


000001 ; SEND BREAK (CONTINUOUS SPACE) 


DPE ERE REET ERATE 


; TBUF REGISTER BIT NAMES 
PES CSCS CTC S Terrie iti i trict ii tii titi titi ii cic titi siti itis iii s. 
; UNUSED BIT15 
; UNUSED BIT14 
; UNUSED BIT13 
; UNUSED BIT12 
; UNUSED BIT11 
; UNUSED BIT10 
; UNUSED BITO9 
; UNUSED B1T98 
000200 TDATA7= BIT07 
TDATA6= BIT06 
TDATA5S= BIT05 
TDATAG= BIT04 
TDATA3= B1T03 
TDATA2= BITO2 
TDATA1= B1T01 
000001 TDATAO= B1T00 


TRANSMITTER DATA BUFFER 
/ 


Be Se Be Be Be Be Be Be 


™s 


SPREE AREER TERE ERATE AEE EERE EERE 


; FLAG BITS TO BE USE OR CLEARED IN SUSWR. 


000002 PARITY 2 
000004 4 
000010 10 
000020 20 


SEQ 0018 
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VDLAA.P11 11-MAY=78 00:00 BASIC DEFINITIONS SEQ 0019 


\ 


STEERER EERE ARERR ERE EERE EEE REE EEE EEK 


“SBITL TRAP CATCHER 


000000 -=0 

;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘*.+2,HALT" 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

000174 ee 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 000000 DISPREG: .WORD 0 ;; SOFTWARE DISPLAY REGISTER 

000176 000000 SWREG: -WORD 0 i; SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 

000200 000137 JMP @#START ;; JUMP TO STARTING ADDRESS OF PROGRAM 


: OFFLINE TESTING FOR INTERRUPT VECTOR PROBLEMS 
000400 | : .=400 
000400 005000 \ RO 
000402 012720 013742 | 1$: #INTSRV,(RO)+ ;SET INTR HANDLER PTR 
000406 012720 000340 #PR7,(RO)+ >SET PRIORITY 
000412 020027 000400 RO, #400 [ALL DONE? 
000416 001371 1$ [BR IF NO 
000420 005037 000176 176 =CLEAN UP SWREG 
000424 000137 001334 START :GO DO iT 


_ Se ee et oe a ot oe tt et os I 
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CVDLAA.P11 11-MAY-78 00:00 STARTING ADDRESS(ES) SEQ 0020 
851 
+34 .SBTTL ACT11 HOOKS : 
854 DD or ttt ttt tit tito ii iiitiiittitt 1 
855 sHOOKS REQUIRED BY ACT11 1 
856 000430 $SVPC=. ;SAVE PC 1 
857 000046 -=46 1 
858 000046 014602 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 1 
859 000052 -=52 1 
860 000052 000000 -WORD 0 ssaS€T LOC. TO ZERO 1 
861 000430 -=$SVPC 3; RESTORE P 1 
862 001000 -=1000 1 
oh -SBTTL APT PARAMETER BLOCK ; 
865 PERRET EERE EERE 1 
866 SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 1 
867 PRCA R TEER ERE 1 
868 001000 .$X=. 3;SAVE CURRENT LOCATION 1 
869 000024 ~=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 1 
870 000024 000200 200 3:FOR APT START UP 1 
871 000044 =44 ;:POINT TO APT INDIRECT ADDRESS PNTR. 1 
872 000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 1 
873 001000 =.$X 7:RESET LOCATION COUNTER 1 
874 PRR RRR AEE EAE EERE ARERR EAR 1 
875 SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
876 ; INTERFACE SPEC. 
877 
878 001000 $SAPTHD: 
879 001000 000000 $HIBTS: .WORD 0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
880 001002 001174 SMBADR: .WORD $SMAIL :;ADDRESS OF APT MAILBOX (BITS 0-15) 
881 001004 000031 STSTM: .WORD 25. 3:RUN TIM OF LONGEST TEST 
882 001006 000144 SPASTM: .WORD 100. 3;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
883 001010 000144 SUNITM: .WORD 100. ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
884 001012 000030 . WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


1 
1 
1 
1 
1 
1 
1 
1 
' 
1 
1 
; 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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001100 
000000 
000 
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OMMON TAGS SEQ 0021 


-SBTTL COMMON TAGS 


‘ESDP SARS RRR ARRRR ARREARS AALRSASASRASALEASES SELES ESSE SERS E SESE E SSS 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


-=1100 
SCMTAG: :;START OF COMMON TAGS 


- WORD 

STSTNM: . 3:CONTAINS THE TEST NUMBER 
SERFLG: . 3: CONTAINS ERROR FLAG 
SICNT: . ;;CONTAINS SUBTEST ITERATION COUNT 
S$LPADR: . ;: CONTAINS SCOPE LOOP ADDRESS 
SLPERR: . ;:CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: . 3:CONTAINS TOTAL ERRORS DETECTED 
Ne ‘ 3: CONTAINS ITEM CONTROL BYTE 

RN? » 


SERRPC: 

SGDADR: . 
SBDADR: . 
SGDDAT: . 


:; CONTAINS MAX. ERRORS PER TEST 


:: CONTAINS 
7: CONTAINS 
:: CONTAINS 
;; CONTAINS 


PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD" DATA 
ADDRESS OF ‘BAD" DATA 

*GOOD' DATA 


_ tt ot od ot ot ot ot ot ot ot oe ot tt ee 


S$BDDAT: ::CONTAINS "BAD" DATA 


;;RESERVED--NOT TO BE USED 


> ;AUTOMATIC MODE INDICATOR 
:: INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 
; ADDRESS OF DISPLAY REGISTER 
::TTY KBD STATUS 
7: TTY KBD BUFFER 
:;TTY PRINTER STATUS REG. ADDRESS 
:;TTY PRINTER BUFFER REG. ADDRESS 
:: CONTAINS NULL CHARACTER FOR FILLS 
: CONTAINS # OF FILLER CHARACTERS REQUIRED 
ss INSERT FILL CHARS. AFTER A ‘LINE FEED" 
33""TERMINAL AVAILABLE'* FLAG (BIT<07>=0=YES) 
is MAX. NUMBER OF ITERATIONS 
SESCAPE :0 sESCAPE ON ERROR ADDRESS 
000377 $BELL: .ASCIZ peice : 3 CODE FOR BELL 
SQUES: ASCII QUESTION MARK 
015 SCRLF: .ASCII Ci5> CARRIAGE RETURN 
001172 000012 SLF: eASCIZ <12> ;:LINE FEED 


PPPS RARRRRRRRRRSRESASEALASESESE ESSE SESE SESE REE SEES ESSE SEES CSE SY 


-SBTTL APT MAILBOX~E TABLE 


SAUTOB: . 
SINTAG: . 


0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


o°9o 
om 
—=£ 
nw 
vw 


Pee D PREP R RR RRRRSRSRRSESESESAS SESS ESSE SESE SERS E SEES ESSE SERS S SEES 


001174 : 7;APT MAILBOX 
000000 2. AMSGTY ;;MESSAGE TYPE CODE 
: 37:FATAL ERROR NUMBER 
3; TEST NUMBER 
3:PASS COUNT 
3;DEVICE COUNT 
: 3:1/0 UNIT NUMBER 
001210 000000 SMSGAD: . AMSGAD ;;MESSAGE ADDRESS 
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001212 
001214 
001214 
001215 
001216 
001220 
001222 


001224 
001225 


001226 
001230 


001254 


J 2 
J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 24 
APT MAILBOX-E TABLE 


11-MAY-78 00:00 


000000 
000 
000 

000000 

001031 

000000 


000000 


000000 


SMSGLG: 


** 
$SMAMS1: 
SMTYP1: 
se 
52 


22 


. WORD 


;* 
$MADR1: . 


* 
SMAMS2: . 
SMTYP2: . 


AMSGLG 


AENV 
AENVM 
ASWREG 
AUSWR 
ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 


AMAMS2 
AMTYP2 
AMADR2 
AMAMS3 
AMTYP3 
AMADR3 
AMAMS4 
AMTYP4 
AMADR4 
AVECT1 
AVECT2 
ABASE 

ADEVM 


>:MESSAGE LENGTH 
;:APT ENVIRONMENT TABLE 
7 ENVIRONMENT BYTE 
7;ENVIRONMENT MODE BITS 
7;APT SWITCH REGISTER 
3;USER SWITCHES 
3;CPU TYPE,OPTIONS 
BITS 15-11=CPU TYPE 
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06,PDQ=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
>:;HIGH ADDRESS,M.S. BYTE 
7;MEM. TYPE,BLK#1 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC mOS=003 
7;HIGH ADDRESS,BLK#1 
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
7:HIGH ADDRESS,M.S. BYTE 
> MEM. TYPE, BLK#2 
7;MEM.LAST ADDRESS, BLK&#2 
;:HIGH ADDRESS,M.S.BYTE 
s MEM. TYPE, BLK#3 
7:MEM.LAST ADDRESS, BLK&3 
:;HIGH ADDRESS,M.S.BYTE 
7 MEM. TYPE,BLK&4 
3:MEM.LAST ADDRESS,BLK&4 
3: INTERRUPT VECTOR#41,BUS PRIORITY#1 
3: INTERRUPT VECTOR#2BUS PRIORITY#2 
;:BASE ADDRESS OF EQUIPMENT UNDER TEST 
3; ;DEVICE MAP 


SEQ 0022 


— ss SI SS ms ss SV SV BV os OS VS SV SS ss Ss SS 
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001254 
001254 


001332 
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11-MAY-78 00:00 


176500 


000000 


ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 


; *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


’ 
’ 
. 
’ 
° 


SERRTB: 

33 GLOBAL DATA 
DLADD: DLADDR 
DLVEC: 300 
RCSR: DLADDR 
RBUF : DLADDR 
TCSR: DLADDR 
rah er 
-BLKW 20 sFOR RS 
RSSTACK: ~WORD 0 


::POINTS TO THE ERROR MESSAGE 
3;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

::POINTS TO THE DATA FORMAT 


STACK 


SEQ 0023 
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CVDLAA.P11 11-MAY-78 00:00 ERROR POINTER TABLE SEQ 0024 


001334 START: 
-SBTTL INITIALIZE THE COMMON TAGS 
3;:CLEAR THE COMMON TAGS (SCMTAG) AREA 
001334 012706 001100 MOV #SCMTAG,RGO 3:FIRST LOCATION TO BE CLEARED 
005026 (R6) + 3;CLEAR MEMORY LOCATION 
022706 001140 #SWR,R6 ;;DONE? 
001374 -6 3;LOOP BACK IF NO 
001350 012706 001100 MOV #STA CK,SP 3: SETUP THE STACK POINTER 
etry A FEW VECTORS 
001354 012737 016342 0 #SSCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
#340, a#iOTVEC+2 7;LEVEL 7 
#SERROR ,a#EMTVEC 7:EMT VECTOR FOR ERROR ROUTINE 
#340 a#EMTVEC+2 ;;LEVEL 7 
#STRAP @#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340, ,a#TRAPVEC+2;LEVEL 7 
SENDCT,SEOPCT 3:SETUP END-OF-PROGRAM COUNTER 
STIMES 7: INITIALIZE NUMBER OF ITERATIONS 
SESCAPE 3;CLEAR THE ESCAPE ON ERROR ADDRESS 
#1, SERMAX 3;ALLOW ONE ERROR PER TEST 
#.,SLPADR ss INITIALIZE THE LOOP ADDRESS FOR SCOPE 
001452 012737 001452 OV #. , SLPERR ;SETUP THE ERROR LOOP ADDRESS 
s3SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
7z;EQUAL TO A ‘'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
001460 013746 000004 MOV @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
001520 #643 ,a#ERRVEC 3:SET UP ERROR VECTOR 
177570 #0SW wR, SWR 3:SETUP FOR A HARDWARE SWICH REGISTER 
177570 #DDISP, DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
177777 =177424 #-1 aswR 3: TRY TO REFERENCE HARDWARE SWR 
001514 001012 66$ ;:BRANCH IF NO TIMEOUT TRAP OCCURRED 
7:AND THE HARDWARE SWR IS NOT = -1 
001516 000403 65$ ;;BRANCH IF NO TIMEOUT 
001520 012716 001526 : #65$, (SP) 7:SET UP FOR TRAP RETURN 
001524 000002 
001526 012737 000176 001140 : #SWREG, SWR 7:POINT TO SOFTWARE SWR 
001534 012737 000174 001142 #DISPREG, DISPLAY 
001542 012637 000004 : (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


001546 005037 001202 SPASS 7:CLEAR PASS COUNT 
001552 132737 000200 001215 WAPTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
001560 001403 67$ 7:YES,USE NON-APT SWITCH 
001562 012737 001216 001140 #SSWREG,SWR ::NO,USE APT SWITCH REGISTER 
001570 67$: 
-SBTTL TYPE PROGRAM NAME 
:;TYPE THE NAME THE PROGRAM IF FIRST PASS 
001570 005227 177777 INC #-1 FIRST TIME? 
BNE 68$ :;BRANCH IF NO 
014602 000042 CMP #SENDAD ,a#42 3:ACT=11? 
BEQ 68$ a. IF YES 
001606 104401 001654 TYPE .69$ TYPE ASCIZ STRING 
: GET VALUE FOR SOFTWARE suiTCh REGISTER 
001612 005737 000042 TST a#42 ARE WE RUNNING UNDER XXDP/ACT? 
001012 70$  TBRANCH IF YES 
123727 001214 000001 SENV,#1 23 ARE WE RUNNING UNDER APT? 
001406 70$ ;BRANCH IF YES 
023727 001140 000176 SWR ,#SWREG :;SOFTWARE SWITCH REG SELECTED? 
001636 001005 BNE 71$ ;:BRANCH IF NO 
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CVDLAA.P11 11-MAY-78 00:00 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0025 


GTSWR :;GET SOFT-SWR SETTINGS 


001640 104406 


000403 BR 71$ 
112737 000001 001134 os: MOVB #1,SAUTOB ::SET AUTO-MODE INDICATOR 


001652 000414 BR 68$ GET OVER THE ASCIZ 
3;69$: .ASCIZ <CRLF>*CVDLAAO bivti- ~J TEST*<CRLF> 


001704 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0026 


CVDLAA.P11 11-MAY-78 00:00 


001704 004737 013012 PC,SIZE SIZE THE BUS IF $DEVM = 0 


001710 005037 014320 PHASE2 : INIT FOR TESTS 
012737 000001 001206 
005037 014316 

001726 005037 014322 


001732 012706 001100 #STACK, SP RESET STACK POINTER 
001736 004737 013752 PC, CYCLE :SETUP MODULE AND CHANNEL 
: ADRS+2 -> NEXT VECTOR 
;GET UNIT ADDRESS 
001742 LET DLADD := (ADRS)+ 
001742 012137 001254 (ADRS) + ,DLADD 
;GET UNIT VECTOR 


001746 DLVEC := (ADRS) 
001746 011137 001256 (ADRS) ,DLVEC 
s:RCSR = DLADD + 


001752 RCSR := DLADD 
013737 001254 001260 DLADD.RCSR 
RBUF := DLADD + #2 


013737 001254 001262 DLADD , RBUF 
062737 000002 001262 #2,RBUF 


013737 001254 001264 DLADD,TCSR 
062737 000004 001264 #4,TCSR 


013737 001254 001266 DLADD, TBUF 
062737 000006 001266 #6, TBUF 


002024 012705 001332 #RSSTACK,RS 
002030 012700 001000 #1000,R0 :DELAY TO ALLOW PRINT TO FINISH 
077001 RO,. ;BEFORE RESET 
BRESET 
LET SDEVCT := SDEVCT + #1 


IFB PHASE2 EQ #TRUE THEN 


TCSR := DLADD + #4 
TBUF := DLADD + #6 


R5 := #RSSTACK 


000005 
005237 001204 SDEVCT 
123727 014320 000001 PHASE2 ,#TRUE 
001003 $1 
000137 007112 MODTST “en TO PHASE 2 TESTING 
L 
000402 $2 
LET STSTNM := #0 


ENDIF 


005037 001102 STSTNM 
002066 


— a os at = es os I 
—~—  S OOO 


fwnrn-o O@OnN 
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CVDLAA.P11 11-MAY-78 00:00 11 ADDRESSABILITY SEQ 0027 


SPUR RAE ERE EAE ERATE RETA A EEE E EAE RERA AERA ERERE AREER EEE 


ADDRESSABILITY 


THIS TEST VERIFIES THAT ALL 4 REGISTERS OF THE CHANNEL UNDER TEST 
RESPOND TO THEIR ADDRESSES. 


eter e iter i tii rit iii ii titi i isi i iti i titi titi titi itis iit i iitt) 
002066 000004 T1: SCOPE 
002070 012737 000002 001160 MOV #2,$TIMES 3:00 2 ITERATIONS 
002076 012737 000001 001200 MOV #1,S$TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
002104 LET ADRS := DLADD 
002104 013701 001254 DLADD, ADRS 
SET UP INTERRUPT 


002110 SETVEC #ILLMEM,#INTSRV,APR7 
010146 R1,-(SP) 
000004 #ILLMEM,R1 
013742 #INTSRV,(R1)+ 
000340 #PR7,(R1) 
012601 (SP)+,R1 


005037 001270 I 


& 
& 
* 

.* 
§ 


LET 
REPEAT 


BGNSUB 
002134 012737 002142 001110 #64$,$LPERR 
CLEAR FLAG 


002142 LET INTFLAG := #0 
002142 005037 013750 INTFLAG 


READ FLAG 
002146 005711 @ADRS 
002150 IF INTFLAG NE #0 THEN 
002150 005737 013750 INTFLAG 
002154 001401 $4 
; FATAL ERROR 


002156 ERRDF 1 
104001 
ENDIF 
ENDSUB 
LET I := 1 + #2 
LET ADRS := DLADD + I 


062737 000002 001270 #2,1 


013701 001254 DLADD,ADRS 
063701 001270 1, ADRS 


023727 00127 000010 1,48. 
002204 001353 $3 


UNTIL I EQ #8. 


1 
1 
1 
i 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


a at a at at st 8 a 8 


RXAQDBMAMAMAAM YN Tt SS BS EEE BE BWANA WNWWWWWNWN PP POPP PP PS Ss 
MH] FO OWN AWUESWNM $C OBWNAU EWN | 0 ODBNAUEFWWN $$ OC DONAUEFWN HO OMNAU 
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CVDLAA.P11 11=MAY-78 00:00 1 ADDRESSABILITY SEQ 0028 


—_ 
— 
ao 
fw 


002206 032777 177476 177044 #177476,aRCSR  ;CHECK THAT ALL UNUSED BITS ARE 0 
002214 001401 1$ 
002216 104027 27 :RCSR HAS UNUSED BITS SET 


002220 032777 007400 177034 : #7400, aRBUF 
002226 001401 2$ 
002230 104030 30 ;RBUF HAS UNUSED BITS SET 


002232 032777 177476 177024 : #177476,aTCSR 
002240 001401 3$ 
002242 104031 31 :TCSR HAS UNUSED BITS SET 


002244 032777 177400 177014 : #177400, ,aTBUF 
002252 001401 4$ 
002254 104032 32 ; TBUF HAS ;UNUSED BITS SET 


002256 : CLRVEC ILLMEM 
010146 R1,-(SP) 
R2,-(SP) 
000004 a pecs 


000002 


002302 012601 (SP)+,R1 


1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee aed ed ce ae a a a ca ae ce ai ce ce cd a el a cd ce cl ee ch ee ee 
bt $ pot td tt hed PP RP Pe APP es to f- 
SOON AUMEWN | O ODMNAUEFWN ODO OMNOuU 


END OF TEST 
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P11 11=MAY-78 00:00 11 ADDRESSABILITY SEQ 0029 


LARRRARARARRRARRARAASAALASALASASASASARSAASASESE SESS SALAS SSAA RSS SSS | 


:* THE FOLLOWING 3 TESTS TEST ALL ‘READ WRITE’ BITS 


SERRE 


3 SRR ERR EERE REE EERE EERE REE REE ER EEE 
TEST 2 BREAK = TCSR 0 SET, CLEAR, RESET 
ie THIS BIT IS THE ONLY ONE IN THIS POSITION 
i THAT IS READ AND WRITE. 
STR E ERE REE EERE REE EERE EEE REE EERE RARER 
002304 000004 TST2: SCOPE 
002306 012737 000010 001160 MOV #10, STIMES ::D0 10 ITERATIONS 
002314 012737 000002 001200 MOV #2,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 


002322 IF #BRK NOTSETIN $USWR THEN 
032737 000010 001220 BIT #BRK ,SUSWR 
001001 BNE $5 
EXIT 
000452 BR TST3 sEXIT THIS TEST 


ENDIF 
002334 


; BREAK NOT INSTALLED 


; SEE IF IT IS CLEAR 
002334 BGNSUB 
002334 012737 002342 001110 #64$,$LPERR 


002342 IF MBREAK SETIN @TCSR THEN 
002342 032777 000001 176714 magnon ditzan 


002350 001401 
: BREAK DID NOT RESET IN TCSR 
002352 ERRHRD 2 
002352 104002 
002354 ENDIF 
002354 : 
002354 ENDSUB 


; TRY TO SET BREAK BIT 
002354 BGNSUB 
002354 012737 002362 001110 #64$,$LPERR 
002362 LET @TCSR := @TCSR SET.BY #BREAK 
002362 052777 000001 176674 #BREAK,aTCSR 
; STUCK 


TO 0 
002370 IF WBREAK NOTSETIN @TCSR THEN 
002370 032777 000001 176666 ee 


002376 001001 
; BREAK DID NOT SET IN TCSR 
002400 ERRHRD 3 
104003 
ENDIF 

002402 ; ENDSUB 

; TRY TO CLEAR A SET BIT 
002402 BGNSUB 
002402 012737 002410 001110 #64$,S$LPERR 


—OOONAUESWN— 
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CVDLAAO DLV11-J TEST 


CVDLAA.P11 


002410 
002410 


002416 
002416 
002424 


002426 
002426 
002430 
002430 
002430 


002430 
002430 


002436 
002436 


002444 
002444 
002446 
002446 
002454 


002456 
002456 
002460 
002460 
002460 


11-MAY-78 00:00 


042777 000001 


032777 000001 
001401 


104004 


012737 002436 
052777 000001 
000005 
032777 000001 
001401 


104005 


MACY11 30A(1052) 


176646 


176640 


001110 


176620 


176610 


30-JUN-78 
T2 


BIC 


BIT 
BEQ 


ERROR 


10:10 PAGE 


32 
BREAK = TCSR 0 SET. CLEAR, RESET 


LET @TCSR := @TCSR CLR.BY #BREAK 


; SHOULD HAVE CLEARED 
IF MBREAK SETIN @TCSR THEN 


#BREAK ,aTCSR 


#BREAK ,aTCSR 
$10 


; BREAK DID NOT CLEAR IN TCSR 
ERRHRD 4 


ENDIF 
ENDSUB 
; NOW SEE IF RESET CLEARS IT 
BGNSUB 
#64$,$LPERR 
LET @TCSR := @TCSR SET.BY #BREAK 


; ISSUE BUS RESET 
BRESET 


IF M#BREAK SETIN @TCSR THEN 


#BREAK,aTCSR 


#BREAK,a@TCSR 
$11 


; BREAK DID NOT RESET IN TCSR 
ERRHRD 5 


ENDIF 
ENDSUB 


SEQ 0030 
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CVDLAA. 


WNW 


_— A Ro es SS os SS os So Ss os as ss ee 
NNW WANN AWWA AIAN 
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DLV11- 
P11 


002460 
002462 
002470 


002476 


002510 
002510 


002516 
002516 
002524 


002526 
002526 
002530 
002530 
002530 


002530 
002530 
002536 
002536 


002544 
002544 
002552 


002554 
002554 
002556 
002556 
002556 


002556 
002556 


002564 
002564 


002572 
002572 
002600 


002602 


002604 


J TEST 
11-MAY-78 


000004 
012737 
012737 


012737 


032777 
001401 


104012 


012737 
052777 


032777 
001001 


104013 


012737 


042777 


032777 
001401 


104014 


MACY11 
00:00 


000010 
000003 


002516 


000100 


002536 
000100 


000100 


002564 


000100 


000100 


a. 
tesa tig 10:10 PAGE 33 


001160 
001200 


001110 


176540 


001110 
176520 


176512 


001110 


176472 


176464 


REAK = TCSR 0 SET, CLEAR, RESET SEQ 0031 


—WeASRSAABAARARAARASAARARARAALSARRRAASSASASSESA SESE S SESE SSE SEER SESS EE SY 


TeTEST 3 XMITIE = TCSR 6 SET, CLEAR, RESET 


PRR ARATE EATER E EEE ER TERRE EEE EERE EERE R RRR RRR 
TST3: SCOPE 

MOV #10,STIMES 3:00 10 ITERATIONS 

MOV #3,$TESIN 3;SET TEST NUMBER IN APT MAIL BOX 

; USE PRIORITY OF 7 
SETPRI #PR7 
; SEE IF IT IS CLEAR 
BGNSUB 
#65$,$LPERR 


IF MXMITIE SETIN @TCSR THEN 
i 


; XMITIE DID NOT RESET IN TCSR 
ERRHRD 12 


ENDIF 
ENDSUB 
; TRY TO SET XMITIE BIT 


BGNSUB 
#64$,SLPERR 
LET @TCSR := @TCSR SET.BY #XMITIE 
#XMITIE,ATCSR 


; STUCK TO 0 
IF MXMITIE NOTSETIN @TCSR THEN 


12 


#XMITIE,@TCSR 
$13 


; XMIT DID NOT SET IN TCSR 
ERRHRD 13 


ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
#64$,,SLPERR 


13 


LET @TCSR := @TCSR CLR.BY #XMITIE 


; SHOULD HAVE CLEARED 
IF #XMITIE SETIN @TCSR THEN 


#XMITIE ,@TCSR 


#XMITIE,@TCSR 
$14 


; XMIT DID NOT CLEAR IN TCSR 
ERRHRD 14 


14 
ENDIF 


ENDSUB 





CV 
CV! 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 34 
DLAA.P11 11=MAY=78 00:00 13 XMITIE = TCSR 6 SET, CLEAR, RESET SEQ 0032 


; NOW SEE IF RESET CLEARS IT 
002604 BGNSUB 
002604 012737 002612 001110 #64$,$LPERR 


002612 LET @TCSR := @TCSR SET.BY #XMITIE 
002612 052777 000100 176444 #XMITIE,ATCSR 
Aca BUS RESET 


002620 BRESE 
002620 000005 
002622 IF AXMITIE SETIN @TCSR THEN 
002622 032777 000100 176434 + la hams 

$ 


002630 001401 
; XMIT DID NOT RESET IN TCSR 
002632 ERRHRD 15 
002632 104015 15 
002634 ENDIF 
002634 
002634 ENDSUB 





CVDLAAO DLV11- 
CVDLAA.P11 


002634 
002636 
002644 


002652 
002652 


002660 
002660 
002666 


002670 
002670 
002672 
002672 
002672 


002672 
002672 
002700 
002700 


002706 
002706 
002714 


002716 
002716 
002720 
002720 
002720 


002720 
002720 


002726 
002726 


002734 
002734 
002742 


002744 


002746 


J TEST 
11-MAY-78 


000004 
012737 
012737 


012737 


032777 
001401 


104035 


012737 
052777 


032777 
001001 


104036 


012737 


042777 


032777 
001401 


104037 


MACY11 arn ry 


00:00 


000010 
000004 


002660 


000100 


002700 
000100 


000100 


002726 


000100 


000100 


001160 
001200 


001110 


176372 


001110 
176352 


176344 


001110 


176324 


176316 


H 3 
* pence 10:10 PAGE 35 


XMITIE = TCSR 6 


SET, CLEAR, RESET SEQ 0033 


'WeORSRBARAASAASAAAARARASAASASASAAASAASAASASASLESESE SESSA RRR S SERRE SES SS 


* 
-* 
° 


TeTEST 4 


RCVRIE = RCSR 6 


SET, CLEAR, RESET 


THIS BIT IS THE ONLY ONE IN THIS POSITION 


THAT IS READ 


AND WRITE. 


—WROASSARAAABRARAASAAASAAAAASLASARAASASLASERASSASSASE SASS SESE SESSA ASSES SS 


ST4: 


SCOPE 
MOV 
MOV 


MOV 


BIT 
BEQ 


ERROR 


#10,STIMES 
#4,$TESIN 

s See 
#64$,$LPERR 


#RCVRIE,ARCSR 
$16 


35 


; TRY 
#64$,S$LPERR 
#RCVRIE,ARCSR 


#RCVRIE ,@RCSR 
$17 


36 


; TRY 
#64$,$LPERR 


#RCVRIE,@RCSR 


#RCVRIE,ARCSR 
$20 


37 


;;D0 10 ITERATIONS 
;;SET TEST NUMBER IN APT MAIL BOX 
IF IT IS CLEAR 
BGNSUB 


IF MRCVRIE SETIN @RCSR THEN 
; RCVRIE DID NOT RESET IN RCSR 
ERRHRD 35 

ENDIF 


ENDSUB 


TO SET RCVRIE BIT 
BGNSUB 


LET @RCSR := @RCSR SET.BY #MRCVRIE 
; STUCK TO 0 
IF MRCVRIE NOTSETIN @RCSR THEN 
; RCVRIE DID NOT SET IN RCSR 
ERRHRD 36 
ENDIF 
ENDSUB 
TO CLEAR A SET BIT 
BGNSUB 


LET @RCSR := @RCSR CLR.BY #RCVRIE 


; SHOULD HAVE CLEARED 
IF MRCVRIE SETIN @RCSR THEN 


; RCVRIE DID NOT CLEAR IN RCSR 
ERRHRD 37 


ENDIF 
ENDSUB 





CV 
CV 


.. 2 
CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 36 
CVDLAA.P11 11-MAY-78 00:00 14 RCVRIE = RCSR 6 SET, CLEAR, RESET SEQ 0034 


; NOW SEE IF RESET CLEARS IT 
002746 BGNSUB 
002746 012737 002754 001110 #64$,S$LPERR 


002754 LET @RCSR := @RCSR SET.BY #RCVRIE 
002754 052777 000100 176276 #RCVRIE ,A@RCSR 
io BUS RESET 


002762 BRESE 
000005 


032777 000100 176266 #RCVRIE ,ARCSR 
002772 001401 $21 





IF MRCVRIE SETIN @RCSR THEN 


: ii NOT RESET IN RCSR 


002774 ERRHRD 
002774 104040 40 

002776 ENDIF 
002776 : 

002776 ENDSUB 


em mk mk kk me kk ke kk me ee ek ek ek ee ik ee ek ik ee kk ek kk ek ek ed kk ed a a a tk ed kt ed 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 37 
DLAA.P11 T4 RCVRIE = RCSR 6 SET, CLEAR, RESET SEQ 0035 


11-MAY-78 00:00 


PEPSI SIS i CIP cei t title titi titi ti titi titi ti iti titi titi titi tits) 
s*TEST 5 TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT 
ESSEC ISIS S LILI Si etter ii rit iti i sti i ttt ttt titi tite riti titi titty) 

002776 000004 TSTS: 

003000 012737 000010 001160 M #10,STIMES ;;D0 10 ITERATIONS 

003006 012737 000005 001200 #5,$TESIN ;;SET TEST NUMBER IN APT MAIL BOX 


003014 BGNSUB 
003014 012737 003022 001110 #64$,SLPERR 


003022 IF AXMITRDY NOTSETIN @TCSR THEN 
003022 032777 000200 176234 #XMITRDY,@TCSR 
003030 001002 $22 


RESET SHOULD HAVE SET BIT. 
:XMITRDY DID NOT SET IN TCSR (AFTER RESE 
003032 ERRHRD 42 


003032 104042 
; ISSUE ANOTHER RESET 
003034 BRESET 
003034 000005 
003036 ENDIF 


003036 
;ALLOW LOOPING ON ERROR 
003036 ENDSUB 





CVDLAAO DLV11-J TEST 
CVDLAA.P11 


003036 
003040 
003046 


003054 


003066 


003066 
003066 
003072 
003072 


003072 
003072 
003076 
003076 


003102 
003102 


003106 
003106 
003110 
003114 
003120 
003124 
003130 
003134 


003136 
003136 
003140 


003146 


11=-MAY-78 


000004 
012737 
012737 


023727 
001001 


000521 


005037 


005037 


005037 


105077 


010546 


103003 


104066 
000137 


MACY11 30A(1052) 
00:00 


000010 001160 
000006 001200 


013736 000001 


003322 


003324 
003326 


176160 


177777 


012560 


003330 


K 
30-JUN-78 10:10 PAGE 3 
T5 T 


8 
EST THAT XMITRDY = TCSR 7 = IS SET BY INIT SEQ 0036 


we SARA RRRARRRARARARRRAAASASASESASESELSLESA LESS SESE ESR S SALES SS So 


® 
° 
* 


TST6: 


$23: 


$24: 


$26: 


s*TEST 6 


TEST THAT XMIT RDY = TCSR 7 = CLEARS 
WHEN TBUF IS LOADED WITH A CHARACTER 
AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF TIME. 


wet tt PDP eRRRRRRRRARRARRARRASASASALASAALAESALSELELEL ELAS ESE RSLS ESSE 


SCOPE 
MOV #10, STIMES ;:D0 10 ITERATIONS 
MOV #6,$TESTN ;:SET TEST NUMBER IN APT MAIL BOX 


IF CONSOL EQ #TRUE THEN 
CMP CONSOL , #TRUE 
BNE $23 


EXIT 
BR TST? 7;EXIT THIS TEST 
ENDIF 


LET PASS := #0 ;INIT COUNT OF TIMES THRU 
LOOP : START OF LOOP 


: MAX OF 2 TIMES THRU 
LET ERRORFLAG := #0 
CLR ERRORFLAG 


LET EXITFLAG := #0 
CLR EXITFLAG 


; LOAD TBUF WITH ONE CHARACTER 

; WAIT FOR READY TO SET 

; (SHOULD BE VERY SHORT WAIT 

; SINCE UART DOUBLE BUFFERS ITS INPUT) 


;SEND A CHARACTER 
LET @TBUF :B= #0 


sWAIT A MAXIMUM 
:OF 50 MSEC FOR 
:XMIT RDY TO SET IN TCSR 
CALL TIMER IN <#500,4XMITRDY,TCSR,#SET> 


CLR PASS 


CLRB aTBUF 


MOV R5,-(SP) 

MOV #SET,~(R5) 

MOV TCSR,-(R5) 

MOV #XMITRDY,-(R5) 

MOV #500,-(R5) 

JSR PC, TIMER 

MOV (SP)+,R5 
; TIMER RETURNS AN ERROR IF BIT DID 
;NOT MEET CONDITION WITHIN TIME LIMIT 

IF .ERROR THEN 


BCC $26 
:XMIT RDY DID NOT SET IN TCSR 
ERRHRD 66 
ERROR 66 
JMP TST? 
ENDIF 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 39 
CVDLAA.P11 11-MAY-78 00:00 T6 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0037 


1509 003146 105077 176114 CLRB @TBUF ;SHIP 1°ST CHAR 
1510 003152 105777 176106 1$: TSTB oo WAIT FOR RDY 


003156 100375 BPL 
; LOAD TBUF WITH A SECOND CHARACTER (TO DOUBLE BUFFER) 
; CHECK IMMEDIATELY THAT XMITRDY IS CLEAR 
; AND THEN WAIT FOR IT TO SET 


;SEND SECOND CHARACTER 

003160 LET @TBUF :B= #0 

003160 105077 176162 aTBUF 

003164 000240 NOP ; GIVE IT TIME TO CLEAR 
; XMITRDY SHOULD HAVE CLEARED UPON 
; RECEIPT OF A CHARACTER 

003166 IF #XMITRDY SETIN @TCSR THEN 

003166 032777 000200 176070 ane ode 


003174 001404 

; XMITRDY DID NOT CLEAR IN TCSR 
003176 LET ERRORFLAG := #SET 
003176 012737 177777 003324 #SET,ERRORFLAG 


— 
uw 
— 
— 


ek ek et as a = ot a 
MAMAN 
—OOONOUS Ww 


NOP @ 2 Ss Ss as 
~m 


; DEFER ERROR TYPEOUT 


003204 
003204 000416 $30 
003206 
;WAIT A MAXIMUM 
;OF 100 MSEC FOR 
:XMIT RDY TO SET IN TCSR 
003206 CALL TIMER IN <#1000,#XMITRDY,TCSR,#SET> 
010546 R5,-(SP) 
012745 177777 #SET,-(R5) 
013745 001264 TCSR,~(R5) 
012745 000200 #XMITRDY,-(R5) 
012745 001000 #1000,-(R5) 
004737 012560 PC, TIMER 
012605 (SP)+,R5 
IF .ERROR THEN 


003236 103001 $31 
:XMIT RDY DID NOT SET IN TCSR 
003240 ERRHRD 70 
104070 70 
ENDIF 


ENDIF ; OF DEFERED ERROR CALL 
IF ERRORFLAG EQ #SET THEN 


023727 003224 177777 ERRORFLAG,#SET 
001013 $32 


LET PASS := PASS + #1 
IF PASS GT #1 THEN 


005237 003322 PASS 
023727 003322 000001 + ea 


003264 003404 
; CALL ERROR IF 2ND TRY 
003266 ERRHRD 67 
003266 104067 67 
003270 LET EXITFLAG := #SET 





MOMMY PIPINPINPI NIM DA NIMENI MI NIP NI NIP NOMI NPM MMM NIN MM MMMM NMNMNMNMNMNMMMMMNMMMMNMNMrTr 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 40 
CVDLAA.P11 11-MAY-78 00:00 T6 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0038 


in 012737 177777 003326 MOV #SET,EXITFLAG 
$33: 


000403 BR $34 
$32: 


012737 177777 003326 #SET,EXITFLAG 
$34: 


ENDIF 
ELSE ; NO ERROR 


LET EXITFLAG := #SET 
ENDIF 
EXiF EXITFLAG EQ #SET 


023727 003326 177777 EXITFLAG,#SET 
001401 $25 


ENDLOOP 
000665 BR $24 


$25: 
EXIT ; SKIP AROUND FLAG WORDS 
000403 BR TST7 scsEXIT THIS TEST 
000000 PASS: 0 
000000 ERRORFLAG: 0 
003326 000000 EXITFLAG: 0 


MMMMMMMMMPMr NM MPP PNT 
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CVCLAAO mee J TEST MACY11 aint” * atlngntt -78 10:10 PAGE 41 
CVDLAA.P11 11-MAY-78 00:00 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0039 


g FRR RARER EERE EEE EERE ERATE EERE AREAS 
TEST 7 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) 
it RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF TIME 
:* AND THAT RESET CLEARS THE BIT. 
*s —MARARARABRABRARBAAAALARASAASAAAAAESALELASASALALESEESAS EASES ES ESS SESS 
003330 000004 TST7: 
003332 012737 000010 001160 #10, STIMES ::D0 10 ITERATIONS 
003340 012737 000007 001200 #7, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 


003346 IF #WRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 
032737 000020 001220 #WRAP ,SUSWR 
001404 $35 
023727 013736 000001 CONSOL , #TRUE 
001001 $36 


EXIT 
000434 TST10 :sEXIT THIS TEST 
ENDIF 


003370 


003370 BGNSUB 
003370 012737 003376 001110 #64$,$LPERR 
; SEND A CHARACTER AND LET IT WRAP AROUND 


003376 LET @TBUF :B= #0 
003376 105077 1756¢% aTBUF 


; WAIT A MAXIMUM OF 50 MSEC 
: — DONE TO SET IN 


; RCS 
003402 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
010546 R5,-(SP) 
177777 #SET,-(R5) 
001260 RCSR,-(R5) 
000200 #RCVRDONE ,~(R5) 
000500 #500,-(R5) 
012560 ; PC, TIMER 
003430 012605 (SP)+,R5 


DIDN'T SET IN TIME 
003432 IF.ERROR THEN 


003432 103001 $37 
; RCVRDONE DID NOT SET IN RCSR 
003434 ERRHRD 71 
003434 104071 
003436 ENDIF 
003436 | 


003436 ENDSUB 
003436 BGNSUB 
003436 012737 003444 001110 #64$,SLPERR 
; NOW THAT IT IS SET SEE IF IT CAN BE RESET 
003444 BRESET 


003444 000005 
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CVDLAAO ge TEST MACY11 serine ” sa ~JUN-78 10:10 PAGE 42 
DLAA.P11 11-MAY-78 00:00 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) SEQ 0040 


003446 IF MRCVRDONE SETIN @RCSR THEN 
003446 032777 000200 175604 BIT #RCVRDONE ,ARCSR 
003454 001401 BEQ $40 
; RCVRDONE DID NOT RESET IN RCSR. 


003456 ERRHRD 72 
003456 104072 ERROR 72 

003460 ENDIF 

003460 : 

003460 ENDSUB 





CVDLAAO DLV11-J TEST 


CVDLA 


-P11 


003460 
003462 
003470 


003476 


003520 


003520 
003520 


003526 
003526 


003532 


003560 


003562 
003562 


003564 
003564 


003566 
003566 
003566 


003566 


003602 


11-MAY-78 


000004 
012737 
012737 


032737 
001404 
023727 
001001 


000433 


012737 


105077 


010546 


012605 


103001 


104025 


052777 


032777 
001401 


MACY11 30A(1052) 30-JUN-78 
17 TE 


00:00 


000010 
000010 


000020 
013736 


003526 


175534 


177777 


012560 


000001 
000200 


001160 
001200 


001220 
000001 


001110 


175464 
175456 


C 4 
10:10 PAGE 43 


ST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) SEQ 0041 


—WeOSRRAASASBARAARAASAARARALALLSARSASASSSSASASE SASS SEES ESSERE SSS EASES SY 


TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE 


SPREE ERE REE AREER EERE EEE EE EEE REE EE 


s*TEST 10 
TST10: 


#10,STIMES 
#10,$TESTN 


#WRAP , SUSWR 
$41 
CONSOL , #TRUE 
$42 


TST11 


#64$,SLPERR 


3:00 10 ITERATIONS 
;;SET TEST NUMBER IN APT MAIL BOX 


IF #WRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 


EXIT 
;sEXIT THIS TEST 
ENDIF 


BGNSUB 


; OUTPUT A CHARACTER AND WAIT FOR XMITRDY TO SET. 


aTBuF 


R5,-(SP) 
#SET,-(R5) 
RCSR,~(R5) 
#RCVRDONE ,~(R5) 
#500,-(R5) 

PC, TIMER 
(SP)+,R5 


$43 


; OUTPUT A CHARACTER 
LET @TBUF :B= #0 


; WAIT MAXIMUM OF 500 MSEC 
; FOR RCVRDONE TO SET IN 


: RCSR 
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 


; DID IT BECOME READY? 
IF.ERROR THEN 


sRCVRDONE DID NOT SET IN R(SR 
ERRHRD 25 


; SET IT BACK TO CONTINUE 
ENDIF 


ENDSUB 


:NOW THAT IT IS SET LETS SEE IF SETTING 
;READER ENABLE CLEARS RCVRDONE 


#RDRRUN,ARCSR 
#RCVRDONE ,@RCSR 
$44 


LET @RCSR := @RCSR SET.BY #RDRRUN 
IF #RCVRDONE SETIN @RCSR THEN 





CVDLAAO DLV11-J TEST MACY11 30A(1052) 
CVDLAA.P11 11-MAY-78 00:00 


003604 
003604 104026 


003606 
003606 


30-JUN-78 
710 


D 4 
10:10 PAGE 44 


TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE 


sRCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 26 


ERROR 


26 


. 
e 


SET IT BACK TO CONTINUE 


SEQ 0042 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 45 
. 11-MAY-78 00:00 T10 TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE SEQ 0043 


PEPSI CISC Titi i titi tii titi titi iri titi titiii titi iti titi it iii tt 
s*TEST 11 TEST THAT RCVRDONE IS CLEARED BY READING RBUF 
ETE SI STIS Cit il iter ii iii titi tte teri tiitit titi titi tit tt tite tii T 

003606 000004 TST11: 

003610 012737 000010 001160 M #10,STIMES 3:00 10 ITERATIONS 

003616 012737 000011 001200 #11,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 


003624 IF #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN 
003624 032737 000020 001220 #WRAP,SUSWR 

003632 001404 $45 

003634 023727 013736 000001 CONSOL , #TRUE 

003642 001001 $46 

003644 

003644 EXIT 

003644 000432 TST12 ;;EXIT THIS TEST 

003646 ENDIF 
003646 


003646 BGNSUB 
003646 012737 003654 001110 #64$,$LPERR 
; OUTPUT A CHARACTER AND WAIT FOR RCVRDONE TO SET. 


; OUTPUT A CHARACTER 
003654 LET @TBUF :B= #0 
003654 105077 175406 aTBUF 
; WAIT MAXIMUM OF 500 MSEC 


; FOR RCVRDONE TO SET IN 


: RCSR 
003660 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
010546 R5,-(SP) 

177777 #SET,-(R5) 

001260 RCSR,~(R5) 

000200 #RCVRDONE ,-(R5) 

000500 #500,-(R5) 

012560 PC, TIMER 
003706 012605 (SP)+,R5 

; DID IT BECOME READY? 


003710 IF.ERROR THEN 


003710 103001 $47 
:RCVRDONE DID NOT SET IN RCSR 
093712 ERRHRD 73 


003712 104073 
; SET IT BACK TO CONTINUE 
003714 ENDIF 
003714 
003714 ENDSUB 


; NOW THAT IT IS SET LETS SEE IF READING THE 
; BUFFER CLEARS RCVRDONE. 


NN NSN SN SN SN NS NN SN SSS GS 
MMMM POM Pn A a Sa es 


Nm 
BNAUVLSWN OO OnNOu' 


;READ BUFFER 
003714 LET RO :B= @RBUF 
003714 117700 175342 @RBUF ,RO 


003720 IF #RCVRDONE SETIN @RCSR THEN 





CVDLAAO 


DLV11- 
P11 

003720 

003726 


003730 
003730 


003732 
003732 


J TEST MACY11 30A(1052) 
11-MAY-78 00:00 


032777 000200 175332 
001401 


104074 


F 4 
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TEST THAT RCVRDONE IS CLEARED BY READING RBUF SEQ 0044 


BIT #RCVRDONE ,ARCSR 
BEQ $50 
;RCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 74 


; SET IT BACK TO CONTINUE 
ENDIF 


ERROR 74 





CV 
CV 


CVDLAAO oat 
AA.P11 


003732 
003734 
003742 


003750 


003764 
003766 


003776 


003776 
003776 


004004 
004004 


004010 


004036 
004040 
004040 


004042 
004042 


TEST 
11-MaY- 78 


000004 
012737 
012737 


005737 
001007 
032737 
001401 
000401 


000524 


000401 


000522 


012737 


105077 


010546 


012605 


103001 


104016 


MACY11 
00:00 


000010 
000012 


013736 


000020 


004004 


175256 


177777 


012560 


siti eae” 


001160 
001200 


001220 


001110 
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TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


CeCe S PSPS SSC PST CTT e iirc ret iret iri ist iti i itt i itt i titi iti tt) 
SeTEST 12 TEST THE OVERRUN & ERROR BITS = RBUF 14 
PERERA AAA TREAT REE REA ATH E EARTH EERE EERE REE 
18112: 
#10, STIMES ;:D0 10 ITERATIONS 
#12,$TESTN 7;SET TEST NUMBER IN APT MAIL BOX 


IF CONSOL EQ #0 THEN 
CONSOL 
$51 


#WRAP,SUSWR 
$52 


IF #WRAP SETIN SUSWR THEN 


33 NULL =--EXECUTE TEST 
SE 
$53 
EX] 
7cEXIT THIS TEST 
ENDIF 
ELSE 


EXIT 
scEXIT THIS TEST 
ENDIF 


BGNSUB 
#64$,$LPERR 
sOUTPUT 2 CHARACTERS 
; THIS SHOULD AN CAUSE OVERRUN ERROR. 


;OUTPUT 1 CHARACTER 
LET @TBUF :B= #0 
aTBuF 


CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 

R5,-(SP) 

#SET,-(R5) 

RCSR,=(R5) 

#RCVRDONE ,~(R5) 

#500,-(R5) 

PC, TIMER 

(SP)+,R5 


:DID IT SET IN TIME? 
IF .ERROR THEN 


hehe es DID NOT SET IN RCSR 
ERRHRD 16 


$55 


SEQ 0045 
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004044 ENDIF 
004044 $55: 


ZOUTPUT 2ND CHARACTER 
004044 LET aTBUF :B= #0 
004044 105077 175216 aTBUF 

:LET OVERRUN HAPPEN 


004050 WAITMS 300. 
004050 010546 R5,-(SP) 

004052 012745 000454 #300. ,-(R5) 

004056 004737 012732 PC WAIT 

004062 012605 (SP)+,R5 


;READ BUFFER AND ERROR BITS 
004064 LET R4 := @RBUF 
004064 017704 175172 @RBUF ,R4 


:1T DIDN'T SET 
004070 IF #ORERR NOTSETIN R4 THEN 
004070 032704 040000 en 


004074 001002 

;ORERR DID NOT SET IN RBUF 
004076 ERRHRD 101 
004076 104101 101 


3NO USE COMPOUNDING ERRORS 
004100 EXIT 


004100 000460 TST13 ;:EXIT THIS TEST 
004102 ENDIF 
004102 : 

004102 ENDSUB 


:NOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 
004102 BGNSUB 


004102 012737 004110 001110 #64$,SLPERR 

004110 IF #ERROR NOTSETIN R4 THEN 
004110 032704 100000 #ERROR,R4 

004114 001002 $57 


:ERROR DID NOT SET IN RBUF 
004116 ERRHRD 102 
004116 104102 


;7WHEN ORERR SET. 
;GET OUT NOW. 
004120 EXIT 
004120 000450 7;EXIT THIS TEST 
004122 ENDIF 
004122 : 
004122 ENDSUB 


004122 BGNSUB 
004122 012737 004130 001110 #64$,S$LPERR 
:CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 


004130 IF #ORERR NOTSETIN QRBUF THEN 
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1890 004130 032777 040000 175124 BIT #ORERR, @RBUF 
1891 004136 001002 BNE $60 


1893 ;READING RBUF CLEARED ORERR. 
1894 004140 ERRHRD 103 

1895 004140 104103 ERROR 103 

1896 SKIP REST OF TEST 

1897 004142 EXIT 

1898 904142 000437 BR TST13 ; EXIT THIS TEST 

1899 004144 ENDIF 

1900 004144 $60: 

1901 004144 ENDSUB 


1903 004144 BGNSUB 

1904 004144 012737 004152 001110 MOV #64$,SLPERR 

1905 READING RBUF ABOVE SHOULD ENABLE ERROR TO BE CLEARED 
1906 ;BY NEXT TRANSFER. 

1907 :NOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 


1909 :SEND A CHARACTER AROUND. 
1910 004152 LET @TBUF :B= #0 

1911 004152 105077 175110 CLRB aTBUF 

1912 004156 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
1913 004156 010546 MOV R5,-(SP) 

1914 004160 012745 177777 MOV #SET,~(R5) 

1915 004164 013745 001260 MOV RCSR,-(R5) 

1916 004170 012745 000200 MOV #RCVRDONE ,~(R5) 

1917 004174 012745 000500 MOV #500,-(R5) 

1918 004200 004737 012560 JSR PC, TIMER 

1919 004204 012605 MOV (SP)+,R5 ss 


1921 :DID IT SET IN TIME? 

1922 004206 IF .ERROR THEN 

1923 004206 103001 BCC $61 

1924 ;RCVRDONE DID NOT SET IN RCSR 
1925 004210 ERRHRD 20 

1926 004210 104020 ERROR 20 

1927 004212 ENDIF 

1928 004212 $61: 


1930 004212 IF #ORERR SETIN @RBUF THEN 

1931 004212 032777 040000 175042 BIT #ORERR,ARBUF 

1932 004220 001402 BEQ $62 

1933 ;ORERR DID NOT CLEAR IN RBUF 
1934 004222 ERRHRD 104 

1935 004222 104104 ERROR 104 


1937 :7AFTER RECEIVING ANOTHER CHAR 
1938 ;SKIP AROUND REST 

1939 004224 EXIT 

1940 004224 000406 BR TST13 ;;EXIT THIS TEST 

1941 004226 ENDIF 

1942 004226 $62: 


1944 004226 IF #ERROR SETIN @RBUF THEN 
1945 004226 032777 100000 175026 BIT #ERROR , @RBUF 


, 
‘ 
( 
‘ 
i 
‘ 
; 
i 
i 
i 
; 
i 
i 
< 
i 
; 
i 
i 
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004236 
004236 104105 


004240 
004240 
004240 
004240 
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TEST THE OVERRUN & ERROR BITS - RBUF 14 


BEQ 


ERROR 


$63 


105 


ERROR DID NOT CLEAR IN RBUF 
ERRHRD 105 
ENDIF 
ENDSUB 
EXIT 
;cEXIT THIS TEST 


SEQ 0048 
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CVDLAAO DLV11- 
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CvD 


004242 
004244 
004252 


004260 
004260 


004264 
004264 


004270 
004270 


004274 
004274 
004276 
004300 
004304 
004310 
004312 
004312 


004320 


004346 


004350 
004350 


004356 


004370 
004370 


004376 
004376 
004400 
004404 
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000004 
012737 
012737 


005037 


013703 


062703 


010146 
010301 
012721 
012711 
012601 


012737 


010546 


012605 


042777 


052777 


010546 
012745 
012745 
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000010 001160 
000013 001200 


013750 


001256 


000004 


613742 
000340 


004320 001110 


177777 
001264 
000200 
000500 
012560 


000100 174706 


000100 174666 


177777 
013750 


wees -78 10: 
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SEQ 0049 


eee PPS T IPSS PSP Petri iri rit iii titi titi iii it itt iit tii tt) 
TRANSMITTER INTERRUPT LOGIC TEST 

LOGICALLY THIS IS 4 SEPARATE TESTS 

A) DOES TRANSMITTER INTERRUPT LOGIC WORK 

B) AT PRIORITY OF 0 


:ATEST 13 


113: 


SETPRI #PRO 


C) AND ONLY ONCE 


D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


tee e DDR R RR RRRRREERAARRRSASSSLEAL SES ASSL ESE SESE SESE RES SS 


#10,STIMES 
#13, STESTN 


INTFLAG 


DLVEC,R3 
#4 ,R3 


R1,-(SP) 
R3 


RI 
#INTSRV,(R1)+ 
#PR7,(R1) 
(SP)+,R1 


#64$ ,SLPERR 


R5,-(SP) 
#SET,-(R5) 
TCSR,~(R5) 
#XMITRDY,-(R5) 
#500,-(R5) 

PC, TIMER 
(SP)+,R5 


#XMITIE,ATCSR 


#XMITIE,@TCSR 


R5,-(SP) 
#SET,~(R5) 
#INTFLAG, -(R5) 


;:;D0 10 ITERATIONS 
:;SET TEST NUMBER IN APT MAIL BOX 
;CLEAR ‘INTERRUPT OCCURED’ FLAG 
LET INTFLAG := #0 


ag vanes ADDRESS 


LET R3 : 


;FOR THE TRANSMITTER 
:= R3 + #4 


SET VECTOR TO POINT TO TRANS.SRV AT PRI 
SETVEC R3, MINTSRV, #PR7 


LET R3 


BGNSUB 


3; MAKE SURE THAT TRANSMITTER READY IS SET 
CALL TIMER IN <#500,#XMITRDY,TCSR,#SET> 


;CLEAR INTERRUPT ENABLE 
LET @TCSR := @TCSR CLR.BY #XMITIE 


:SET IT TO 0 


NOW SET I.E. BIT 
LET aTCsR := @TCSR SET.BY #XMITIE 


CALL TIMER IN <#500,41,#INTFLAG,#SET> 
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CVDLAAO aT 


CVDL 


AA.P 


004410 


004424 


004426 
004426 


004430 
004430 
004432 
004432 


004432 
004432 
004434 
004440 
004444 


004446 
004446 
004454 
004456 
004456 
004460 
004460 
004460 


004460 
004460 


004466 
004466 


004474 
004474 
004500 
004500 


004504 


004532 
004534 
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012745 
012745 
004737 
012605 


103001 


104106 


010546 
012745 
004737 
012605 


023727 
003401 


104107 


012737 


042777 


005037 


005077 


010546 


012605 
103401 


MACY11 30A(1052) 


00:00 


000001 
000500 
012560 


000764 
012732 


013750 


004466 


000100 


013750 


174562 


177777 


012560 


000001 


001110 


174570 


30-JUN-78 
113 
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TRANSMITTER INTERRUPT LOGIC TEST 


#1,-(R5) 
#500,-(R5) 
PC, TIMER 
(SP)+,R5 


$64 


106 


R5,-(SP) 
#500. ,-(R5) 
PC,WAIT 
(SP)+,R5 


INTFLAG,#1 
$65 


107 


:DID IT SET IN TIME? 
IF ERROR THEN 


; INTERRUPT DID NOT OCCUR 
ERRHRD 106 


ENDIF 


;LET POSSIBLE 2'ND INTERR OCCUR 
WAITMS 500. 


:DID EXACTLY 1 INTERRUPT OCCUR 
IF INTFLAG GT #1 THEN 


; TRANSMITTER INTERRUPTED TWICE 
ERRHRD 107 


ENDIF 


ENDSUB 
; INTERRUPT WITHOUT INTERRUPT ENABLE SET 
BGNSUB 
#64$,SLPERR 


#XMITIE,ATCSR 


INTFLAG 


aTBUF 


R5,-(SP) 
#SET,-(R5) 
#INTFLAG,-(R5) 
#1,-(R5) 
#1000,-(R5) 
PC, TIMER 
(SP)+,R5 


1$ 


;CLEAR INTERRUPT ENABLE 
LET @TCSR := @TCSR CLR.BY #XMITIE 


;CLEAR “INTERRUPT OCCURED’ FLAG 
LET INTFLAG := #0 


NO INTERRUPTS SHOULD OCCUR, PSW STILL AT 0. 
DARE IT TO HAPPEN 
LET @TBUF := #0 


;SEE IF INT FLAG EVER SETS 
CALL TIMER IN <#1000,41,#INTFLAG,#SET> 


:DID IT SET DURING TIMER? 
BR IF NO 


. 
’ 


SEQ 0050 


sINTERR STILL OCCURED WITH IE DISABLED 
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004536 
004536 
004540 
004540 
004542 


004542 


004566 
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104110 
000005 


010146 


012601 


000003 
000002 
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713 TRANSMITTER INTERRUPT LOGIC TEST 


110 


R1,-(SP) 


(SP)+,R1 


ERRHRD 110 
BRESET 


ENDSUB 
RESTORE VECTOR AREA 
CLRVEC R3 


SEQ 0051 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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Cee eT e Seti i iri iriri titi titi titi titi titi titi titi titi tii 
SSTEST 14 RECEIVER INTERRUPT LOGIC TEST 
;* THIS TEST COVERS ALL OF THE RECEIVER 
;* SIDE OF THE INTERRUPT LOGIC IN 
;* CHARACTER MODE. 
aig teal ta Aa ic ia Aces net 
000004 S 
012737 000010 001160 #10,$TIMES 3:00 10 ITERATIONS 
012737 000014 001200 #14,$TESIN 7;SET TEST NUMBER IN APT MAIL BOX 

I& #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN 
032737 000020 001220 a eas 


001404 $ 
023727 013736 000001 CONSOL , #TRUE 
001002 $67 


000137 005156 ; TST15 ai EXIT TEST 
004632 


;CLEAR INTERRUPT OCCURED FLAG 
:SET UP RECEIVER INTER. VECTOR 
004632 SETVEC DLVEC.MINTSRV,#PR7 
010146 R1,-(SP) 
013701 001256 DLVEC,R1 
012721 013742 #INTSRV,(R1)+ 
012711 0600340 #PR7,(R1) 
004650 012601 (SP)+,R1 
:PRIORITY 0 AND MULTIPLE INTERRUPT TEST.-RCVRIE 
004652 BGNSUB 


004652 012737 004660 001110 #64$,S$LPERR 
004660 LET INTFLAG := #0 
004660 005037 013750 INTFLAG 
CLEAR INTERRUPTS 


004664 LET @RCSR := @RCSR CLR.BY #RCVRIE 
004664 042777 000100 174366 BIC #RCVRIE ,ARCSR 
ey PRIORITY 


21 
21 
21 
21 
21 
21 
21 
21 
21 


004672 SETPRI #PRO 


SEND A CHARACTER 
004704 LET @TBUF :B= #0 
004704 105077 174356 aTBUF 
sWAIT r MAXIMUM 
:0F 50 MSEC FOR 
i XMIT RDY. To SET IN TCSR 
004710 CALL TIMER IN <#500 ,#RCVRDONE , TCSR,#SET> 
010546 R5,-(SP) 
012745 177777 #SET,~(R5) 
013745 TCSR,~(R5) 
012745 #RCVRDONE ,-(R5) 
012745 #500,-(R5) 
004737 012560 PC, TIMER 
004736 012605 (SP)+,R5 
SET INTERRUPT ENABLE 


004740 LET @RCSR := @RCSR SET.BY #RCVRIE 
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de ogryt ere 
DLAA.P11 


004740 


004746 


004774 


004776 
004776 


005000 
005000 
005002 
005002 


005002 
005002 
005004 
005010 
005014 


005016 
005016 
005024 


005026 
005026 
005030 
005030 
005030 


005030 
005030 


005036 
005036 


005044 
005044 


005050 
005050 


J TEST 


MACY11 poate 


11-maY- 78 00:00 


052777 


010546 
012745 
012745 
012745 
012745 
004737 
012605 


103001 
104111 
10546 
012745 


004737 
012605 


023727 
003401 


104112 


012737 


042777 


005037 


105077 


000100 174312 


177777 
013750 
000001 
000500 
012560 


000500 
012732 


013750 000001 


005036 001110 


000100 174214 
013750 


174212 


mae -JUN-78 
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RECEIVER INTERRUPT LOGIC TEST 


BIS 


#RCVRIE ,@RCSR 


R5,-(SP) 
#SET,-(R5) 
ls ait 


(SP)+,R5 


$70 


R5,-(SP) 
#500,-(R5) 
PC,WAIT 
(SP)+,R5 


INTFLAG,#1 
$71 


112 


SEQ 0053 


sLET IT COME IN. 
CALL TIMER IN <#500,#1,MINTFLAG,ASET> 


:DID IT SET IN TIME? 
IF .ERROR THEN 


; INTERRUPT DID NOT OCCUR 
ERRHRD 111 


ENDIF 


;LET POSSIBLE 2°ND INTERR OCCUR 
WAITMS 500 


EXACTLY 1 INTERRUPT? 
IF INTFLAG GT #1 THEN 


snag be INTERRUPTED TWICE 
ERRHRD 112 
ENDIF 
ENDSUB 


; INTERRUPT WITHOUT IE SET. 


#64$,$LPERR 


#RCVRIE,ARCSR 


INTFLAG 


aTBUF 


BGNSUB 
;CLEAR INTERRUPT 
@RCSR := A@RCSR CLR.BY #RCVRIE 


; CLEAR carer FLAG 
INTFLAG := #0 


; SEND A CHARACTER 
@TBUF :B= #0 





an 
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; DARE IT 


005054 CALL TIMER IN <#500,#1,#INTFLAG,ACLR> 
010546 R5,-(SP) 
012745 000000 #CLR,=(R5) 
#INTFLAG,=(R5) 
#1,-(R5) 


#500,-(R5) 
004737 012560 S 
005102 012605 ( (SP)+,R5 
;DID IT CLEAR IN TIME? 


005104 IF .ERROR THEN 
005104 103001 $72 
sINTERR STILL OCCURED WITH IE DISABLED 


005106 ERRHRD 113 
104113 113 
ENDIF 


ENDSU 
005110 SETPRI #PR7 RAISE CPU PRIORITY 

:CLEAR THE WORLD 
005122 BRESET 
005122 000005 RESET 


005124 LET R4 := @DLVEC 
017704 174126 @DLVEC,R4 
CLRVEC R4 
010146 R1,-(SP) 
000004 
000002 


005154 012601 (SP)+,R1 
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PRPS SSCS titi t iret iii rir iri rir itititititiititi titi titi iti tii iit) 

s*TEST 15 TEST DATA WRAP AROUND: FLAG MODE 

ET e TITS iter list tia ti tii t rere tet titi tt iti titi i ti titi tit tits 

005156 000004 TST15: 
012737 000001 001160 M #1,STIMES 3:00 1 ITERATION 
012737 000015 001200 #15, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 
IF #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN 

032737 000020 001220 _ 


001404 
023727 013736 000001 CONSOL , #TRUE 
001001 $74 

005214 


005214 


CAN'T TEST WITHOUT A WRAP 

EX! 

000506 ssEXIT THIS TEST 
ENDIF 


BRESET 


005216 000005 
;BINARY COUNT PATTERN 
005220 INCR R2 FROM #0 TO #377 BY #1 
005002 R2 
000401 $75 


005202 R2 


020227 000377 ’ R2,#377 
005232 003077 $77 


; MAKE SURE IT'S READY 
005234 CALL TIMER IN <#500,#XMITRDY,TCSR,#SET> 
010546 R5,-(SP) 
177777 #SET,-(R5) 
TCSR,=(R5) 
#XMITRDY,-(R5) 
#500,-(R5) 
012560 PC, TIMER 
012605 (SP)+,R5 
IF .ERROR THEN 


005264 103002 $100 
; TRANSMITTER NEVER BECAME READY 
005266 ERRHRD 123 
104123 123 
EXIT 


000460 TST16 3;EXIT THIS TEST 
ENDIF 
005272 


START IT ON ITS WAY 
005272 LET @TBUF :B= R2 
005272 110277 173770 R2,aTBUF 
; NOW WAIT FOR RECIEVER DONE 


005276 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 





CVDLAAO DLV11- 
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005276 


005330 


005332 
005332 
005334 
005334 


005334 
005334 


005340 
005340 
005344 


005346 
005346 


005350 
005350 


005350 


005370 
005372 


005400 


005400 
005400 
005402 
005402 


J TEST MACY11 aici waa 


11-MAY-78 00:00 
010546 
012745 177777 
013745 001260 
012745 000200 
012745 000500 
004737 012560 
012605 
103002 


104124 


000437 


017703 173722 


032703 100000 
001401 


104200 


020302 
001415 


032737 000001 
001006 


020227 000200 
002002 
104117 
000416 


000402 


104017 
000413 


001220 


. 
10:10 PAGE 58 
TEST DATA WRAP AROUND: FLAG MODE 


R5,~(SP) 
#SET,-(R5) 
RCSR,=(R5) 


#RCVRDONE ,-(R5) 


#500,-(R5) 
PC, TIMER 
(SP)+,R5 


$101 
124 


TST16 


@RBUF ,R3 


#ERROR,RS 
$102 
200 


R3,R2 
$103 


#BI1TO,SUSWR 
$104 


R2,#200 
$105 


117 
TST16 


$106 


17 
TST16 


SEQ 0056 


IF .ERROR THEN 
ERRHRD 124 
i a NEVER BECAME READY 
x 
srEXIT THIS TEST 
ENDIF 
;RETRIEVE 
LET R3 := @RBUF 
;CHECK FOR ERROR DURING TRANSFER 
IF #ERROR SETIN R3 THEN 
;ERROR BIT SET IN HIGH BYTE OF RBUF 
ERRHRD 200 


ENDIF 


COMPARE DATA 
IF R3 NE R2 THEN 


IF #BITO NOTSETIN SUSWR THEN 
IF R2 LT #200 THEN 
;DATA COMPARE ERR IN 7 BIT WORD 
ERRHRD 117 
EXIT 
;sEXIT THIS TEST 
ENDIF 
ELSE 


;DATA COMP ERR IN 8 BIT WORD 
ERRHRD 17 


EXIT 
;;EXIT THIS TEST 





coe 
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005404 ENDIF 
ELSE IF #BITO NOTSETIN $USWR AND R2 GT #177 THEN 


$106: 


000411 $103 B $107 
032737 000001 001220 #BITO,SUSWR 
001005 $110 
020227 000177 R2,#177 
005422 003402 $110 
GETTING 8 BITS ON 7 BIT XMIT 
MAKE SURE SUSWR SETUP CORRECTLY. 
005424 ERRHRD 22 
104022 22 


EXIT 
000401 TST16 ;;EXIT THIS TEST 
ENDIF 


ENDINC ;R2 
000675 
005432 





CVDLAAO DLV11-J TEST 


005474 


005474 


005506 
005506 


005512 
005512 
005516 
005516 


005522 
005522 
005526 
005526 


005532 


005542 


11-MAY-78 


000004 
012737 
012737 
032737 
001004 
023727 
001002 


000137 


013701 


012721 
012721 


012721 
012711 


005037 
005037 
032737 


MACY11 
00:00 


000001 
000016 


000020 
013736 


006102 


001256 


005774 
000340 


005736 
000340 


005732 
005772 
000001 


G 5 
30A(1052) 30-JUN-78 10:10 PAGE 60 
115 TEST DATA WRAP AROUND: 


001160 
001200 


001220 
000001 


001220 


FLAG MODE 


WEOARBRABSRASRRBARRBBARRBSASASAASLASASASESASSSAE SEAS ARER SERRA SESS SERRA SSE SS 


S*TEST 16 


TEST DATA WRAP AROUND: I 


NTERRUPT MODE 


STR E ER E RR EEE EEE ERE REE ERE RARER EERE 


TST16: 


SETPRI #PRO 


MOV 


MOV 
MOV 


#1,STIMES 3:00 1 1 
#16,$TESIN :;SET TE 


#WRAP ,SUSWR 
$111 
CONSOL , #TRUE 
$112 


TST17 


; THIS TEST WILL RUN BOT 
; RECIEVER AT FULL SPEED 


TERATION 
ST NUMBER IN APT MAIL BOX 


SEQ 0058 


IF #WRAP SETIN S$USWR OR CONSOL EQ #TRUE THEN 


sEXIT TEST 
ENDIF 


H TRANSMITTER AND 
TESTING 


; THE ABILITY OF THE MODULE 


: TO HANDLE INTERRUPTS F 
“DOUBLE BUFFERING IS NOT 
“APT CONSIDERATIONS. I.E 
[CAUSES OVERRUN ERRORS. 
“ENABLED ONLY AFTER THE 
THIS TEST WILL TRANSF 


> CHARACTERS THROUGH THE 
: IS DETECTED BY THE TES 


DLVEC,R1 


WREC,(R1)+ 
#PR7,(R1)+ 


#TRAN,(R1)+ 
#PR7,(R1) 


ERRCNT 
DATA 
#BITO,SUSWR 


ROM BOTH SIDES AT ONCE. 


FULLY TESTED BECAUSE OF 

- "BREAK' FROM APT 

THEREFORE TRANSMIT INTR IS 

RECVR HAS OBTAINED THE LAST WORD 


ER A MAXIMUM OF 400(8) 
MODULE, BUT IF AN ERROR 
T A PREMATURE SHUTDOWN OCCURS. 


; CHANGE PRIORITY 
taetO G 


:GET VECTOR ADDRESS 
LET R1 := DLVEC 


:RCVR VECTOR 
LET (R1)+ := #REC 


LET (R1)* := #PR7 
;POINT TO TRANSMITTER VECTOR 
;AND SET IT UP ALSO 

LET (R1)+ := #TRAN 

LET (R1) := #PR7 
; CLEAR ERROR COUNTER 

LET ERRCNT := #0 

LET DATA := #0 ;XMIT DATA 


IF #BITO NOTSETIN SUSWR THEN 





CV 
CV 


e 3 
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CVDLAA.P11 11-MAY~78 00:00 TEST DATA WRAP AROUND: INTERRUPT MODE SEQ 0059 


2423 005550 001004 BNE $113 

2424 005552 LET NUMBER := #200 
2425 005552 012737 000200 005734 MOV #200 ,NUMBER 

2426 005560 ELSE 

2427 005560 000403 BR $114 

2428 005562 $113: 

2429 005562 LET NUMBER : 
2430 005562 012737 000400 005734 MOV #400 ,NUMBER 

2431 005570 ENDIF 

2432 005570 $114: 


2434 005570 BRESET ;SET UP ALL REGISTERS 
2435 005570 000005 RESET 


2437 ;SET I.E. IN TRANSMITTER 
2438 005572 LET @TCSR := aTCSR SET.BY #XMITIE 
2439 005572 052777 000100 173464 BIS #XMITIE,ATCSR 

2440 ;AND RECEIVER 

2441 005600 LET @RCSR := @RCSR SET.BY #RCVRIE 
2442 005600 052777 000100 173452 BIS #RCVRIE,ARCSR 


#400 


2445 sNOW WE WAIT 
2446 005606 REPEAT 

2447 005606 $115: 

2448 005606 UNTIL DATA EQ NUMBER OR ERRCNT GT #0 
2449 005606 023737 005772 005734 CMP DATA,NUMBER 

2450 005614 001403 BEQ $116 

2451 005616 005737 005732 TST ERRCNT 

2452 005622 003771 BLE $115 

2453 005624 $116: 


2455 ;NOW LETS CHECK. 

2456 ; TURN OFF ALL INTR ENABLE 

2457 005624 LET @TCSR := @TCSR CLR.BY #XMITIE 
2458 005624 042777 000100 173432 BIC #XMITIE,@TCSR 

2459 005632 LET @RCSR := @RCSR CLR.BY #RCVRIE 
2460 005632 042777 000100 173420 BIC #RCVRIE,@RCSR 

2461 005640 IF ERRCNT NE #0 THEN 

2462 005640 005737 005732 TST ERRCNT 

2463 005644 001431 BEQ $117 

2464 005646 IF MERROR SETIN RHLD THEN 

2465 005646 032737 100000 006100 BIT #ERROR,RHLD 

2466 005654 001424 BEQ $120 

2467 005656 IF MORERR SETIN RHLD THEN 
2468 005656 032737 040000 006100 BIT #ORERR,RHLD 

2469 005664 001402 BEQ $121 

2470 ; OVERRUN ERROR 

2471 005666 ERRHRD 220 

2472 005666 104220 ERROR 220 

2473 005670 ELSE IF #FRERR SETIN RHLD THEN 
2474 005670 000415 BR $122 

2475 005672 $121: 

2476 005672 032737 020000 006100 BIT #FRERR,RHLD 

2477 005700 001402 BEQ $123 

2478 FRAMING ERROR 





* 
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-P11 11-MAY-78 00:00 716 TEST DATA WRAP AROUND: INTERRUPT MODE SEQ 0060 


005702 ERRHRD 221 


104221 ERROR 221 
ELSE IF #PERR SETIN RHLD THEN 
000407 BR $124 


$123: 
032737 010000 006100 BIT #PERR,RHLD 
005714 001402 BEQ $125 
;PARITY ERROR 


005716 ERRHRD 222 
005716 104222 ERROR 222 

005720 ELSE 

005720 000401 BR $126 


005722 
; UNKNOWN ERROR 
005722 ERRHRD 24 
104024 24 
ENDIF 


000401 
005726 
;DATA COMPARE ERROR 
005726 ERRHRD 120 
104120 
ENDIF 
ENDIF 


;SKIP OVER SUPPORT ROUTINES & STORAGE 


EXIT 
005730 000464 BR :;EXIT THIS TEST 


005732 000000 ERRCNT: 0 
005734 000000 NUMBER: 0 





4.3% 
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CVDLAA.P11 11=MAY-78 00:00 716 TEST DATA WRAP AROUND: INTERRUPT MODE SEQ 0061 


PRA A AERA REET EEE E TET TET TEETER TAREE EERE EEE 
; TRANSMIT INTERRUPT HANDLER 
EPPS PSSST SPSS PP PP ete Pree cee i irr rte acti iii i ttt iti tii i itt i tt 


005736 BGNSRV TRAN 


TRAN: 
IF DATA NE NUMBER AND ERRCNT EQ #0 THEN 
023737 005772 005734 ee 


005732 ERRCNT 
005752 001003 $130 
; SHIP OUT WORD 


005754 LET @TBUF := DATA 
005754 013777 005772 173304 DATA, aTBUF 
005762 ENDIF 


005762 

:STOP INTERR, NOT EXER DOUBL BUFFER 
005762 LET @TCSR := @TCSR CLR.BY #XMITIE 
005762 042777 000100 173274 BIC #XMITIE,ATCSR 
005770 ENDSRV 
005770 000002 RTI 


005772 000000 DATA: 0 


eee ee een eee eee ee eer een 2 een ee) 


‘ES e RPS RRR RRR RRRRRRRRRSSASSARESESESERS ESE S ASE SES ESSERE SEES SESS S| 


sRECEIVER INTERRUPT HANDLER 


ECC CCPC Terre e i tit iret iris iirc treet titi ct i titi i itt tt tt 
005774 BGNSRV REC 
005774 REC: 
;GET CHAR 


005774 LET RHLD := @RBUF 
005774 017737 173262 006100 MOV @RBUF ,RHLD 
; CHECK ERROR 


006002 IF #ERROR SETIN RHLD OR RHLD NE DATA THEN 
032737 100000 006100 BIT #ERROR ,RHLD 
001004 BNE $131 
023737 006100 005772 CMP RHLD,DATA 
001411 BEQ $132 
006022 
:STOP ALL INTERR PROC & GET OUT 
006022 LET DATA := NUMBER 
013737 005734 005772 NUMBER ,DATA 
LET @RCSR := @RCSR CLR.BY #RCVRIE 
042777 000100 173222 #RCVRIE,ARCSR 
LET ERRCNT := ERRCNT + #1 
005237 005732 ERRCNT 
ELSE 
000415 B $133 
LET DATA := DATA + #1 


IF DATA EQ NUMBER THEN 


005237 005772 DATA 


023737 005772 005734 DATA,NUMBER 
001004 $134 


006060 042777 000100 173172 WRCVRIE ,@RCSR 


LET @RCSR := @RCSR CLR.BY #RCVRIE 





kK 5 
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006066 ELSE 
006066 000403 BR $135 


006070 $134: 
;ALLOW NEXT XMIT INTERR 
006070 LET @TCSR := @TCSR SET.BY #XMITIE 
052777 000100 173166 BIS #XMITIE,ATCSR 
ENDIF 
ENDIF 


6 ENDSRV 
006076 000002 


006100 000000 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
| 
3 
3 
3 
3 
3 
3 
3 
3 
7 
3 
3 
3 
3 
3 
3 
3 
3 
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DLAA.P11 11-MAY-78 00:00 T16 TEST DATA WRAP AROUND: INTERRUPT MODE SEQ 0063 


RRR RRA AAA E RARER TEE AE TET ERATE ERE 
TEST BREAK GENERATION LOGIC 
TRANSMIT KNOWN CHAR WITH BREAK SET. 
AND COMPARE RECEIVED WITH 0. 
FRAMING ERROR WILL ALSO - CHECKED 
IF ERROR BITS ARE ENABLED 


000004 
012737 000010 001160 #10,STIMES ;:D0 10 ITERATIONS 
012737 000017 001200 #17, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
IF #WRAP NOTSETIN SUSWR OR #BRK NOTSETIN SUSWR T 
032737 000020 001220 oe 


001404 
032737 000010 001220 #BRK ,SUSWR 
001003 $137 


000137 006614 : TST20 SEXIT TEST 
000406 $140 


IF CONSOL EQ #TRUE THEN 
023727 013736 000001 rt paella 


006154 001002 
:CAN'T TEST CONSOLE 
006156 000137 006614 TST20 EXIT TEST 
ENDIF 


ENDIF 


BGNSUB 
006162 012737 006170 001110 #648, S$. PERR 


006170 LET ERRCHK := #0 ; CLEAR ERROR WORD 
006170 005037 006612 ERRCHK 
;SET BREAK BIT 


006174 LET @TCSR := @TCSR SET.BY #BREAK 
006174 052777 000001 173062 #BREAK,aTCSR 
NON-ZERO CHAR. ‘*' 


006202 LET arBui := #252 
006202 012777 000252 173056 #252,aTBUF 
WAIT FOR DONE 


006210 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
010546 R5,-(SP) 
177777 #SET,-(R5) 
001260 RCSR,~(R5) 
000200 ARCVRDONE , ~(R5) 
000500 #500,-(R5) 
012560 PC, TIMER 
012605 (SP)+,R5 
IF ERROR THEN 


006240 103001 $142 
; RECIEVER DONE DID NOT SET 
006242 ERRHRD 115 
006242 104115 115 
006244 ENDIF 


3 
> 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
| 
3 
3 
3 
| 
3 
3 
3 
3 
3 
3 
| 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
| 
3 
3 
3 
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006244 $142: 
017700 173012 @RBUF ,RO 


105700 RO 
001403 $143 


LET RO := @RBUF 
IFB RO NE #0 THEN 
; BREAK DID NOT EQUAL 0 
LET ERRCHK := ERRCHK SET.BY #BIT0 
ENDIF 
IF #FRERR NOTSETIN RO THEN 


052737 000001 006612 #BITO,ERRCHK 


032700 020000 #FRERR,RO 
001003 $144 


052737 000002 006612 #BIT1,ERRCHK 


LET ERRCHK := ERRCHK SET.BY #BIT1 
ENDIF 


IF #PARITY SETIN $USWR THEN 
032737 000002 001220 AY abi ecaaeanas 


006304 001421 

;0DD PARITY ENABLED 
006306 IF MEVENODD NOTSETIN SUSWR THEN 
006306 032737 000004 001220 4 arta 


006314 001007 

;BREAK SHOULD GENERATE A PARITY ERRO 
006316 IF #PERR NOTSETIN RO THEN 
006316 032700 010000 #PERR,RO 


006322 001003 $147 
;NO PAR ERROR WHEN THERE SHOULD 


006324 LET ERRCHK := ERRCHK SET.BY #BIT2 
052737 000004 006612 #BIT2,ERRCHK 
ENDIF 


ELSE 
000406 $150 
IF #PERR SETIN RO THEN 
032700 010000 #PERR,RO 
001403 $151 


LET ERRCNT := ERRCNT SET.BY #BIT3 
052737 000010 005732 #BIT3,ERRCNT 


ENDIF 
ENDIF 


ENDIF 
006350 


006350 BRESET ;CLEAN UP 

000005 

032777 170000 172702 #170000 ,aRBUF 

001401 1$ 

104033 33 RESET DID NOT CLEAR ERROR,FR ERR,OR PERR IN RBUF 


006364 





Qld Cd Ct Cad Crd Cd Cd Ct Cd Cad Ga Cd Gt Cd Od ad Gt Cd Ga Gd Gt Cd Cd Gd Cd Gad Cd Gad Cal Cd Gad Cd Gat Cad Cad Gat Cl Cl Cd Gal CA Cd Cd Cd Cd Cd Cal Cl Cd Cd Cd Cl Cal Cal Cal ot 


CVDLAAO DLV11- 
DLAA.P11 


006364 


006420 


006422 
006422 
006422 
006422 
006430 
006432 
006432 


006434 
006434 
006434 
006434 
006434 


006442 
006442 


006450 


006476 


006500 
006500 


006502 
006502 
006504 


J TEST 
11-MAY-78 


032737 
001401 
104121 


032737 
001401 


104122 


032737 
001401 


104235 


032737 
001401 


104236 


012737 


052777 


010546 


012605 


103001 


104021 


MACY11 30A(1052) 30-JUN 
117 


00:00 


000001 


000002 


000004 


000010 


006442 


000001 


177777 
001264 
000001 
000500 
012560 


006612 


006612 


006612 


006612 


001110 


172614 


-78 


N 5 
10:10 PAGE 67 


TEST BREAK GENERATION LOGIC 


BIT 
BEQ 


ERROR 


#B1TO,ERRCHK 
$152 


121 


#BIT1,ERRCHK 
$153 


122 


#BIT2,ERRCHK 
$154 


235 


#BIT3,ERRCHK 
$155 


236 


#64$,$LPERR 
#BREAK ,aTCSR 


R5,-(SP) 
#SET,-(R5) 
TCSR,-(R5) 
#BREAK,~(R5) 
#500,-(R5) 
PC, TIMER 
(SP)+,R5 


$156 


21 


ENDSUB 
BGNSUB 


IF #BITO SETIN ERRCHK THEN 


ERRHRD 121 ;BREAK ERROR 
ENDIF 
IF #BIT1 SETIN ERRCHK THEN 


ERRHRD 122 ; FRAMING ERROR 
ENDIF 
IF #BIT2 SETIN ERRCHK THEN 


ERRHRD 235 
;NO PARITY ERROR WHEN 
THERE SHOULD BE 
ENDIF 


IF #BIT3 SETIN ERRCHK THEN 


ERRHRD 236 


sPARITY ERROR SHOULD NOT HAVE 
;OCCURED WITH EVEN PARITY 
;ENABLED AND BREAK SET 

ENDIF 


;SET BREAK BIT 
LET @TCSR := @TCSR SET.BY #BREAK 


CALL TIMER IN <#500,#BREAK,TCSR,#SET> 


:D1D IT SET? 
IF ERROR THEN 


;BREAK DID NOT SET 
ERRHRD 21 


SEQ 0065 





A A rd rt rd Gd Gr Crt Ot Gt Gd rd Gr Gr Ot Gr Gd Od Ord Gr rt Cd rt Gd Od nt GN rd Ord tO Cd Gd Od Od Ct A A ds A rd GV Od Od ds ts A A Ad A A 
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006504 $156: 


CLEAR BREAK BIT 
006504 LET arcsk := @TCSR CLR.BY #BREAK 
042777 000001 172552 #BREAK ,aTCSR 
WAITMS 100. 


010546 R5,-(SP) 

012745 000144 #100. ,-(R5) 

004737 012732 PC,WAIT 
006524 012605 (SP)+,R5 


ig ~ RBUF TO CLEAR ERRORS & REC DONE 
RBUF 


006526 LET RO : 
006526 017700 172530 @RBUF ,RO 


SEND CHAR 
006532 LET @TBUF := #252 
006532 012777 000252 172526 #252,aTBUF 
;WAIT FOR DONE BIT 


006540 CALL TIMER IN <#500,#RCVRDONE, RCSR,#SET> 
010546 R5,-(SP) 
177777 #SET,-(R5) 
RCSR,~(R5) 
#RCVRDONE ,~(R5) 
#500,-(R5) 
012560 PC, TIMER 
012605 (SP)+,R5 
IF ERROR THEN 


006570 103001 $157 
;RECEIVER NEVER CAME READY 
006572 ERRHRD 230 
006572 104230 230 
006574 
006574 


sWAS CHAR AFTER BREAK RECEIVED 
006574 IFB @RBUF NE #252 THEN 
006574 127727 172462 000252 CMPB ro ial 


006602 001401 BEQ 
;CHAR AFTER BREAK NOT RECEIVED CORRECTLY 
006604 ERRHRD 231 
104231 ERROR 231 


BRESET 


ENDSUB 
EXIT 
000401 BR 7;EXIT THIS TEST 
006612 000000 ERRCHK: .WORD 0 


000005 RESE) 





CVDLAAO DLV11- 


CVDLAA.P11 


006614 


007106 


J TEST 
11-MAY-78 


000004 
012737 


032777 
001513 


023727 
001021 
000425 


005737 
001022 


005237 


104401 


005037 


023727 
001004 


005037 
005237 


000137 


MACY11 30A(1052) 


00:00 


000001 
010000 


014320 


014322 


014322 


001171 


001112 
014320 


014320 
001206 


001732 


001160 
172306 


000001 


000001 


. © 
30-JUN-78 10:10 PAGE 69 
117 TEST BREAK GENERATION LOGIC SEQ 0067 


SRR ARERR ERA EEE EAE EEE REE RE RE REEERERRANTEERKKREREKE 


s*TEST 20 


=‘—WRARDAAAASRABRAARARAREASAASAASRASARAASRSASAARASSESES ESA SESE SESS SSE SS SS | 


TST20: 


SCOPE 
MOV 


BIT 
BEQ 


CMP 
BNE 
TYPTXT 
BR 


BNE 
TYPTXT 


INC 


TYPTXT 
TYPOCT 
TYPTXT 
TYPOCT 
TYPTXT 
TYPDEC 
TYPE 


CLR 


NOT A TEST = SEND BACK TO LOOP 


#1,STIMES 3:00 1 ITERATION 

IF #BIT12 SETIN @SWR THEN 
#BIT12,aSWR 
$161 


IF PHASE2 EQ #TRUE THEN 


PHASE2 ,#TRUE 

$162 

<<CRLFD/ *t PHASE 2 SUMMARY **/<CRLF>> 
ELSE 


IF PICNT EQ #0 THEN 
<<CRLF>/ &* PHASE 1 SUMMARY **/<CRLF>> 
LET PICNT := PICNT + #1 
PICNT 
ENDIF 
ENDIF 
<*CSR: *> 
DLADD 
<*, VECTOR: *> 
DLVEC 
<*, ERRORS: *> 
SERTTL 
, SCRLF 
ENDIF 
SERTTL ; RESET FOR NEXT DEVICE/PASS 
IF PHASE2 EQ #TRUE THEN 
PHASE2, #TRUE 
$165 
LET PHASE2 := #0 
LET SUNIT := SUNIT + #1 
ENDIF 


LOOP ; BACK UP TO THE BEGINNING 


PHASE2 
SUNIT 





CVDLAAO DLV11- 
CVDLAA.P11 


007112 


007112 
007114 
007122 


007130 


007142 


007144 


007156 
007156 


007204 


007206 


007224 


J TEST 
11-MAY-78 


000004 
012737 
012737 


012700 


005020 


020027 
001374 


013700 
012701 


010120 
012720 
062701 


020127 
001370 


013737 
005037 
013700 





MACY11 30A(1052) 


00:00 


000001 
000021 


010056 


010076 


001256 
007536 


000340 
000030 
010036 


014314 
010100 
001254 


001160 
001200 


010076 


6 
30-JUN-78 10:10 PAGE 70 
T20 NOT A TEST = SEND BACK TO LOOP 


MODTST: 
OES C SSSI O SSSI Perret r ii iti tii iii i titi i iit iii i ii it: 
s*TEST 21 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 
Fihad INTERRUPTS WILL BE ENABLED ON ALL ACTIVE CHANNELS. 
s@ RECEIVER AND TRANSMITTER. THEN WE*LL CHECK TO 
;# SEE IF THEY INTERRUPTED IN THE ASSIGNED SEQUENCE. 
OES e CSCC ISS c eT ie itil ii rie titi i ti titi i iii litt itt i iii iia tiie it 
TST21: SCOPE 

MOV #1,STIMES ;;D0 1 ITERATION 

MOV #21,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 


sev on SEA povemertt 
REPEAT 

LET (RO)+ := #0 
UNTIL RO EQ #TABEND 


#INTRTABLE ,RO 


CLR (RO)+ 


CMP RO, #TABEND 
BNE $166 


;SET PRIORITY TO 7 
SETPRI #PR7 


7SET UP ALL INTERRUPT VECTORS 
LET RO := DLVEC 


LET R1 := #RCVROSRV 
REPEAT 
LET (RO)+ := R1 
LET (RO)+ := #PR7 
LET R1 := R1 + #30 
UNTIL R1 EQ #SRVEND 


DLVEC,RO 
#RCVROSRV,R1 


R1, (RO) + 

#PR7,(RO)+ 

R1,#SRVEND 

$167 
;ENABLE INTERRUPTS ON ALL ACTIVE LINES, 
;ALSO, XMIT CHAR'S TO PRIME RECEIVERS 


;COPY MASK 
LET CHMASK := MASK 


LET CHCNT := #0 
LET RO := DLADD 
REPEAT 


MASK, CHMASK 
CHCNT 
DLADD,RO 


SEQ 0068 
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CVDLAA.P11 11=-MAY-78 00:00 T21 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY SEQ 0069 
2906 007224 IF #BITO SETIN CHMASK THEN 
2907 007224 032737 000001 010076 BIT #BI1TO,CHMASK 
2908 007232 001430 BEQ $171 
2909 ;SET RCSR IE 
2910 007234 LET (RO) := (RO) SET.BY #BIT6 
2911 007234 052710 000100 BIS #B1T6, (RO) 
2912 007240 LET RO := RO + #4 
2913 007240 062700 000004 ADD #4 ,RO 
2914 SET XCSR IE 
2915 007244 LET (RO) := (RO) SET.BY #BIT6 
2916 007244 052710 000100 BIS #B1T6, (RO) 
2917 ; LOAD 
2918 007250 LET 2(RO). := #252 
2919 007250 012760 000252 000002 MOV #252,2(RO) 
2920 :GO BACK TO RCSR 
2921 007256 LET RO := RO - #4 
2922 007256 162700 000004 SUB #4,R0 
2923 ;LOOK FOR RCVR DONE 
2924 007262 CALL TIMER IN <#500,#RCVRDONE ,RO,ASET> 
2925 007262 010546 MOV R5,-(SP) 
2926 007264 012745 177777 MOV #SET,-(R5) 
2927 007270 010045 MOV RO,-(R5) 
2928 007272 012745 000200 MOV #RCVRDONE ,~(R5) 
2929 007276 012745 000500 MOV #500,-(R5) 
2930 007302 004737 012560 JSR PC, TIMER 
2931 007306 012605 MOV (SP)+,R5 
2932 :DID IT SET IN TIME? 
2933 007310 IF.ERROR THEN 
2934 007310 103001 BCC $172 
2935 :RCVRDONE DID NOT SET IN RCSR 
2936 007312 ERRHRD 23 
2937 007312 104023 ERROR 23 
2938 007314 ENDIF 
2939 007314 $172: 
2940 007314 ENDIF 
2941 007314 $171: 
2942 
2943 007314 LET RO := RO + #10 
2944 007314 062700 000010 ADD #10,R0 
2945 ; SETUP FOR NEXT CHANNEL 
2946 007320 LET CHMASK := CHMASK SHIFT -1 
2947 007320 006237 010076 ASR CHMASK 
2948 007324 LET CHCNT := CHCNT + #1 
2949 007324 005237 010100 INC CHCNT 
2950 007330 IF CHCNT EQ #3 THEN 
2951 007330 023727 010100 000003 CMP CHCNT #3 
2952 007336 001007 BNE $173 
2953 007340 CALL TSTCON 
2954 007340 004737 013662 JSR PC, TSTCON 
2955 007344 IF CONSOLE NE #0 THEN 
2956 007344 005737 013736 TST CONSOLE 
2957 007350 001402 BEQ $174 
2958 007352 LET CHCNT := CHCNT + #1 
2959 007352 005237 010100 INC CHCNT 
2960 007356 ENDIF 


2961 007356 $174: 
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007356 ENDIF 
$173: 
UNTIL CHCNT EQ 44 


023727 010100 000004 CHCNT #4 
001317 $170 


007364 


;ALL XMIT & REC INTERRUPTS SHOULD BE 

IN CONTENTION. 

RECEIVE INTERRUPTS HAVE PRIORITY 

;OVER XMIT INTERRUPTS. 

;LOW CHANNELS HAVE PRIORITY OVER HIGH CHANNELS. 
; THEREFORE, ONCE CPU PRIORITY IS LOWERED, 

: INTERRUPTS S/B IN THE ORDER SHOWN IN THE 
CHANNEL IDENTIFIER TABLE (RCHO:) 


;SET UP POINTER FOR SERVICE ROUTINE 
007366 LET R4 := #MINTRTABLE 
007366 012704 010056 MOV #INTRTABLE ,R4 


:LET EM GO 
007372 SETPRI #PRO 


sDISABLE ALL INTERRUPTS 
007404 BRESET 
007404 000005 


007406 LET TCNT := #0 
007406 005037 010104 TCNT 
;CLEAR ERR FLAG 


007412 LET PRIERR := #0 
007412 005037 010102 PRIERR 
007416 LET RO := MINTRTABLE 
007416 012700 010056 #INTRTABLE ,RO 

; SETUP EXPECTED VALUE 


007422 LET R1 := #MINTRTABLE+2 
007422 012701 010060 #INTRTABLE+2,R1 
007426 013737 014314 010076 MASK, CHMASK :GET # OF CHANNELS IN TCNT 


007434 006237 010076 : — 


010104 TCNT :GET TOTAL CHANNEL CT 
010076 : CHMASK 
007452 001370 1$ 


007454 004737 013662 PC, TSTCON CORRECT CHANNEL CT FOR CONSOLE 
007460 005737 013736 CONSOLE 

007464 001402 3$ 

007466 005337 010104 TCNT 

007472 006337 010104 : TCNT sAPPLY X2 MULT FACTOR 


007476 005337 010104 : al 
010104 177777 leat sALL 7°S 7 


5 :BR IF YES 
(R1)+,(RO)+ ;R1-RO 
4$ 


;R1-R 
007516 003367 ;BR IF R1>RO 
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TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 


INC 


PRIERR 


PRIERR 
$175 


250 


ELSE ERROR 


IF PRIERR NE #0 THEN 


ERRHRD 250 


; CHANNELS DID NOT INTR ACCORDING TO 
;ASSIGNED PRIORITY. THE BYTE ENTRIES 
; IN INTRTABLE: SHOULD BE IN THE ORDER 
; THAT THEY APPEAR IN THE CHANNEL # 
, oe - (EXCLUDING CHANNELS NOT ACTIVE) 
N 


EXIT 
scEMIT THIS TEST 


SEQ 0071 
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007536 
007536 


007536 
007536 


007542 
007542 
0097550 
007550 


007556 
007556 
007564 
007564 


007566 
007566 


007566 
007566 


007572 
007572 
007600 
007600 


007606 
007606 
007614 
007614 


007616 
007616 


007616 
007616 


007622 
007622 
007630 
007630 


007636 
007636 
007644 
007644 


007646 
007646 
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013724 


013737 
062737 


042777 
000002 


013724 


013737 
062737 


042777 
000002 


013724 


013737 
062737 


042777 
000002 


MACY11 
00:00 


010036 


001260 
000000 


000100 


010046 


001260 
000004 


000100 


010040 


001260 
000010 


000100 
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SPREE ARR ERAEA EEE RARER E EEE EEE EERE RARER HEKREKKEKE KEE 


te START OF SERVICE ROUTINES 


Ps 
PARRA ARR E ETT EEETTE EE E TATE T TATE EERE E eee 
BGNSRV RCVROSRV 


;PUT INTR IDENTIFIER IN INTRTABLE 
T (R4)+ := RCHO 


;GENERATE CSR ADDRESS 
TEMP := RCSR 


TEMP := TEMP + #0 


RCVROSRV: 
MOV RCHO, (R4)+ 


010106 MOV RCSR, TEMP 


010106 #0, TEMP 
;ONE INTR IS ALL WE WANT FROM HERE 
@TEMP := @TEMP CLR.BY #BIT6 
00032 #BIT6,aTEMP 
ENDSRV 


BGNSRV XMITOSRV 


;PUT INTR IDENTIFIER IN INTRTABLE 
T (R4)+ := TCHO 


bet geenge CSR ADDRESS 
TEMP := RCSR 


TEMP := TEMP + #4 


;ONE INTR IS ALL WE WANT FROM HERE 
@TEMP := @TEMP CLR.BY #BIT6 


XMITOSRV: 
MOV TCHO, (R4)+ 


010106 RCSR,TEMP 
010106 #4,TEMP 
000272 #BIT6,aTEMP 
ENDSRV 


BGNSRV RCVRISRV 


sPUT INTR IDENTIFIER IN INTRTABLE 
T (R4)+ := RCHI 


:GENERATE CSR ADDRESS 
TEMP := RCSR 


TEMP := TEMP + #10 


RCVRISRV: 


RCH1,(R4)+ 


010106 RCSR, TEMP 


010106 #10, TEMP 
;ONE INTR IS ALL WE WANT FROM HERE 
@TEMP := @TEMP CLR.BY #BIT6 

000242 BIC #BIT6,aTEMP 


RTI 


ENDSRV 


BGNSRV XMITISRV 
XMIT1SRV: 


SEQ 0072 
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;PUT INTR IDENTIFIER IN INTRTABLE 
007646 (R4)+ := TCHI 
007646 013724 010050 MOV TCH1, (R4)+ 

; GENERATE iy ADDRESS 


007652 TEMP := RCS 
007652 013737 001260 010106 MOV RCSR, TEMP 
007660 TEMP := TEMP + #14 
007660 062737 000014 010106 ADD #14,TEMP 
;ONE INTR IS ALL WE WANT FROM HERE 


007666 @TEMP := @TEMP CLR.BY #BIT6 
007666 042777 000100 000212 BIC #BIT6,aTEMP 

007674 ENDSRV 

007674 000002 RTI 


007676 BGNSRV RCVR2SRV 


007676 RCVR2SRV: 

;PUT INTR IDENTIFIER IN INTRTABLE 
007676 ET (R4)+ := RCH2 
007676 013724 010042 MOV RCH2,(R4)+ 

;GENERATE CSR ADDRESS 


007702 TEMP := RCSR 
007702 013737 001260 010106 MOV RCSR, TEMP 
007710 TEMP := TEMP + #20 
007710 062737 000020 010106 #20, TEMP 
;ONE INTR IS ALL WE WANT FROM HERE 


007716 @TEMP := @TEMP CLR.BY #BIT6 
007716 042777 0600100 000162 #BIT6,aTEMP 


007724 ENDSRV 
007724 000002 


007726 BGNSRV XMIT2SRV 


007726 XMIT2SRV: 

;PUT INTR IDENTIFIER IN INTRTABLE 
007726 LET (R4)+ := TCH2 
007726 013724 010052 TCH2, (R4)+ 

:GENERATE CSR ADDRESS 


007732 LET TEMP := RCSR 
007732 013737 001260 010106 RCSR, TEMP 
007740 LET TEMP := TEMP + #24 
007740 062737 000024 010106 #24,TEMP 
;ONE INTR IS ALL WE WANT FROM HERE 


007746 LET @TEMP := aTEMP CLR.BY #BIT6 
007746 042777 000100 000132 #BIT6,aTEMP 

007754 ENDSRV 

007754 000002 


007756 BGNSRV RCVR3SRV 


007756 RCVR3SRV: 

;PUT INTR IDENTIFIER IN INTRTABLE 
007756 LET (R4)+ := RCH3 
007756 013724 010044 RCH3, (R4)+ 

> eemale Ag ADDRESS 


007762 LET TEMP := 

007762 013737 001260 010106 RCSR, TEMP 

007770 LET TEMP := TEMP + #30 
007770 062737 000030 010106 #30, TEMP 
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;ONE INTR IS ALL WE WANT FROM HERE 
007776 LET @TEMP := @TEMP CLR.BY #BIT6 
007776 042777 000100 000102 BIC #BIT6,aTEMP 
010004 ENDSRV 
010004 000002 RTI 


010006 BGNSRV XMIT3SRV 


010006 XMIT3SRV: 

;PUT INTR IDENTIFIER IN INTRTABLE 
010006 ET (R4)+ := TCHS 
010006 013724 010054 MOV TCHS, (R4)+ 

;GENERATE CSR ADDRESS 


010012 TEMP := RCSR 
010012 013737 001260 010106 MOV RCSR, TEMP 
010020 TEMP := TEMP + #34 
010020 062737 000034 010106 ADD #34,TEMP 
;ONE INTR IS ALL WE WANT FROM HERE 


010026 @TEMP := @TEMP CLR.BY #BIT6 
010026 042777 000100 000052 #BIT6,aTEMP 

010034 ENDSRV 

010034 000002 RTI 

010036 SRVEND: 
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>**CHANNEL IDENTIFIER TABLE** 

;THE ENTRIES FROM THIS 

; TABLE ARE PLACED IN THE INTRTABLE 

sIN THE ORDER THAT THE INTR'S 

sOCCUR. (EXCLUDING NON-ACTIVE CH'S) 
0: -WORD 0 


-WORD 1 
«WORD 2 
] 
1 
1 
1 


010036 000000 


. WORD 

. WORD 

: - WORD 

010054 000013 : . WORD 


; THIS TABLE WILL CONTAIN ENTRIES 
REPRESENTING EACH INTR IN THE ORDER 
THAT IT OCCURED 

; S/B IN THE ABOVE ORDER 


010056 000010 INTRTABLE : .BLKW 8. 
010076 TABEND : 


010076 000000 CHMASK: .WORD 0 BITS 3-0 INDICATE WHICH CH'S ARE ACTIVE FOR THIS TEST 


010100 000000 CHCNT: .WORD 0 CHANNEL COUNTER 

010102 000000 PRIERR: .WORD 0 sERROR WORD, CONTAINS NO. OF INTR OUT OF ORDER 
010104 000000 TCNT: «WORD 0 ; TABLE PASS CTR 

010106 000000 TEMP: -WORD 0 FOR SERVICE ROUTINES 
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RRR A RA RAA AAA AA AAA TA ATTA T ATTA T AAA T EAT A ETRE eRe eee 
:aTEST 22 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 
IN THIS WE'LL ENABLE INTERRUPTS ON ALL CHANNELS 
FOR THIS DLV11-J. THEN WE'LL XMIT AN INCREMENTING 
DATA PATERN VIA INTERRUPTS AND RECORD THE RECEIVER 
INTR. IN THE RECEIVER STATUS TABLE. 
DOUBLE BUFFERING CANNOT BE TESTED AT ITS MAX SPEED 
BECAUSE OF APT CONSIDERATIONS. I.E. APT SENDS 
"BREAKS' WHICH CAUSE OVERRUN ERRORS. THEREFORE 
THE XMIT IE IS NOT ENABLED AGAIN UNTIL THE RECVR 
HAS OBTAINED THE PREVIOUS WORD. 
MASA ARARARAARAAARASARASELALALALAASASSALLSASESESE EASES ARES ESSA RASS SS 
010110 000004 T22: SCOPE 
010112 012737 000001 001160 MOV #1,$TIMES ;;00 1 ITERATION 
010120 012737 000022 001200 MOV #22,$TESIN ;:SET TEST NUMBER IN APT MAIL BOX 
;CLR ERROR WORD, 
010126 LET ERWRD := #0 
010126 005037 012500 CLR ERWRD 


ms. eouoeeeee se: 


ate Be Be ee 


: CLEAR OUT RECEIVER TABLES 
010132 LET RO := #CHOTAB 
010132 012700 011472 #CHOTAB,RO 
010136 REPEAT 
010136 : 
010136 LET (RO)+ := #0 
010136 005020 (RO)+ 
010140 UNTIL RO EQ #STATEND 
010140 020027 012472 RO, #STATEND 
010144 001374 $176 


;SET UP ALL VECTORS 
010146 LET R1 := #ROSRV 


012701 010772 #ROSRV,R1 
013700 001256 DLVEC,RO 


LET RO := DLVEC 

REPEAT 
LET (RO)+ := R1 
LET (RO)+ := #PR7 
LET R1 := R1 + #54 
LET (RO)+ := R1 
LET (RO)+ := #PR7 
LET R1 := R1 + #44 

UNTIL R1 EQ #SEREND 


010120 R1,(RO)+ 
012720 000340 #PR7,(RO)+ 
062701 000054 #54,R1 
010120 R1,(RO)+ 
012720 000340 #PR7,(RO)+ 
062701 000044 ADD #44,R1 


020127 011472 CMP R1,#SEREND 
010206 001363 BNE $177 


010210 SETPRI #PR7 


SET PRIORTY TO 7 
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ENABLE INTR'S ON ALL ACTIVE LINES 
THIS MODULE 
010222 RO := DLADD 
010222 013700 001254 DLADD,RO 
: INITIALIZE 


010226 LET CHMSK := MASK 
010226 013737 014314 012472 MASK, CHMSK 
010234 CHCTR := #0 
010234 005037 012474 CHCTR 

ACTIVE CHANNEL CTR 
010240 LET ACTCH := #0 

005037 012476 ACTCH 
REPEAT 


IF #BITO SETIN CHMSK THEN 
032737 000001 012472 #B1T0,CHMSK 
010252 001413 $201 
:# OF ACTIVE CH 


010254 LET ACTCH := ACTCH + #1 
010254 005237 012476 ACTCH 
SET RCSR IE 


010260 LET (RO) := (RO) SET.BY #BIT6 
010260 052719 000100 #BIT6, (RO) 
010264 LET RO := RO + #4 
010264 062700 000004 #4 ,RO 
SET XCSR IE 


010270 LET (RO) := (RO) SET.BY #BIT6 
052710 000100 #B1T6, (RO) 
LET RO := RO + #4 


062700 000004 #4,R0 
ELSE 
000402 B $202 
LET RO := RO + #10 
ENDIF 
LET CHMSK := CHMSK SHIFT <1 


062700 000010 #10,R0 


010306 006237 012472 
010312 LET CHCTR := CHCTR + #1 
005237 012474 CHCTR 
IF CHCTR EQ #3 THEN 


023727 012474 000003 CHCTR, #3 
001007 $203 


004737 013662 PC, TSTCON 
005737 013736 CONSOLE 
$204 


CALL TSTCON 

IF CONSOLE NE #0 THEN 
001402 
005237 012474 CHCTR 


LET CHCTR := CHCTR + #1 


ENDIF 
010344 
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016425 
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016425 
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00:00 


012474 


011472 
011672 
012072 
012272 


012504 


012506 


000001 


012540 
012540 


012550 
012550 


000002 
000010 


012476 


80 
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 
ENDIF 
UNTIL CHCTR EQ #4 


$203: 


000004 CMP CHCTR,#4 
BNE $200 


; INIT BUFFER POINTERS FOR SERVICE ROUTINES 
RO := #CHOTAB 

#CHOTAB,RO 

#CH1TAB,R1 

#CH2TAB,R2 


#CH3TAB,R3 


R1 := #CHITAB 

R2 := #CH2TAB 

R3 := #CH3TAB 
;FILL XBUF WORDS 
FROM TMPO THRU TMP3E 
START WORD CH 0 ALWAYS 0 
LET TMPO := #0 


; OFFSET TO INDEX 
LET R4 := #0 


;PTR TO TABLE TO BE FILLED 
LET RS := #TMPOE 


REPEAT 
IF #BITO NOTSETIN SUSWR THEN 


R4 


#TMPOE ,R5S 


001220 #BITO,SUSWR 
$206 


LET (R5)+ := TABL7(R4) 
LET (R5)+ := TABL7(R4) 
ELSE 


TABL7(R4),(R5)+ 

TABL7(R4),(R5)+ 

$207 
LET (R5)+ := TABL8(R4) 
LET (R5)+ := TABL8(R4) 

ENDIF 
LET R4 := R4 + #2 
UNTIL R4 EQ #10 


TABL8(R4),(R5)+ 
TABL8(R4),(R5)+ 


#2,R4 
R4,#10 
$205 
INIT TMP4 
WILL BE DECR BY XMIT SERVICE ROUTINES TILL 0 
LET TMP4 := ACTCH 


;SET PRIORITY TO 0 


012526 ACTCH, TMP4 
SETPRI #PRO 


SEQ 0078 
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010472 REPEAT 

010472 : 

010472 UNTIL TMP4 EQ #0 
010472 005737 012526 TMP4 

010476 001375 $210 


;WAIT FOR RECV'S TO CATCH UP 
010500 LET TMP4 := #100000 
012737 100000 012526 #100000, TMP4 
REPEAT 
LET TMP4 := TMP4 = #1 


UNTIL TMP4 EQ #0 


005337 012526 


005737 012526 
010516 001373 


;DISABLE ALL INTR'S 
010520 ESET 
010520 000005 
; CHECK vohS TABLE 
: RESET TMPO, 1 .2.35 
010522 LET TMPO := #0 
005037 012504 TMPO 
LET TMP1 := TMPOE 
013737 012506 012510 TMPOE , TMP 1 
LET TMP2 := TMPIE 
013737 012512 012514 TMPIE, TMP2 
LET TMP3 := TMP2E 
010542 013737 012516 012520 TMP2E , TMP3 
: INITIALIZE 


010550 LET CHCTR := #0 
005037 012474 CHCTR 
LET CHMSK := MASK 


013737 014314 012472 MASK, CHMSK 
REPEAT 


IF #BITO SETIN CHMSK THEN 


032737 000001 012472 #BITO,CHMSK 
001436 $213 


LET RO := CHCTR 
010572 013700 012474 CHCTR,RO 
;OFFSET TO INDEX (2x) 


010576 LET RO := RO SHIFT +1 
010576 006300 RO 

;GET TABLE LOC FOR THAT CH. 
010600 LET R2 := TABL6(RO) 
010600 016002 012530 TABL6(RO) ,R2 

;OFFSET TO INDEX (4X) 
010604 LET RO := RO SHIFT +1 
010604 006300 RO 

:GET EXPECTED STARTING WORD 


010606 LET R1 := TMPO(RO) 
010606 016001 012504 TMPOC(RO),R1 
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010612 LET RO := RO + #2 
010612 062700 000002 ADD #2,R0 
;GET MAX WORD FOR THAT CH. 


010616 LET R35 := TMPO(RO) 
010616 016003 012504 MOV TMPO(RO) ,R3 


010622 REPEAT 


, IF #BIT15 SETIN (R2) THEN 
032712 100060 #BIT15,(R2) 
001403 $215 


052737 000400 012500 #B1T8,ERWRD 
ENDIF 


010636 
;CHECK FOR DATA COMPARE ERROR 
010636 IFB (R2) NE R1 THEN 
010636 121201 
010640 001402 
010642 LET ERWRD := ERWRD + #1 
010642 005237 012500 
010646 ENDIF 


010646 

;BUMP EXPECTED DATA WORD 
010646 LET R1 := R1 + #1 
010646 005201 

:BUMP TABLE PTR 


010650 LET R2 := R2 + #2 
010650 062702 000002 


010654 R1 EQ R3 OR ERWRD NE #0 
020103 
001403 
005737 012500 
001756 


LET ERWRD := ERWRD SET.BY #BIT8 


nm nmeeeReeieeeie_neeeeeeee_ mee mReeReeReeEee BRR eee Ree —_ e—e ie ie i— ~~ 


ENDIF 

LET CHCTR := CHCTR + #1 

LET CHMSK := CHMSK SHIFT -1 
IF CHCTR EQ #3 THEN 


005237 012474 
006237 012472 CHMSK 


023727 012474 000003 CHCTR,#3 
001010 $220 


004737 013662 PC, TSTCON 


023727 013736 000001 CONSOLE ,#TRUE 
010720 001002 $221 


CALL TSTCON 
IF CONSOLE EQ #TRUE THEN 


010722 HCTR := CHCTR + #1 
005237 012474 CHCTR 


010726 
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3487 010744 
3489 010744 
3490 010744 
3491 010752 


3493 010754 


3499 010762 


3501 010764 
3502 010764 
3503 010766 
3504 010766 


3507 010766 


J TEST MACY11 30A(1052) 30-JUN-78 
11-MAY-78 00:00 T22 
$220: 
023727 012474 000004 
001403 
005737 012500 
001707 
$222: 
032737 000460 012500 
001401 
104270 
$223: 
105737 012500 
001401 
104271 
$224: 
000137 006614 


JMP 


10:10 PAGE 


83 
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 


UNTIL CHCTR EQ #4 OR ERWRD NE #0 


CHCTR, #4 
$222 
ERWRD 
$212 
IF #BI1T8 SETIN ERWRD THEN 
#B1T8,ERWRD 
$223 
;ERROR FLAG UP AFTER TRANSFER 
ERRHRD 270 
270 
ENDIF 
IFB ERWRD NE #0 THEN 
ERWRD 
$224 
;DATA COMPARE ERROR 
ERRHRD 271 
271 
ENDIF 
TST20 EXIT TEST 


SEQ 0081 
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CVDLAAO DLV11-J TEST 


CVDLAA.P11 


3513 010772 


3523 011020 


3525 011022 
3526 011022 


3528 011030 


3532 011040 


3534 011040 
3535 011040 
3536 011044 
3537 011044 
3538 011044 
3539 011044 


3541 011046 


11-MAY-78 


013737 
062737 
017720 
si 
062737 


052777 


000402 


005337 


000002 


013737 
062737 
013777 
005237 


162737 


042777 
000002 


MACY11 30A(1052) 
T2 


00:00 


001260 
000002 
001470 
012504 


000002 


000100 


012526 


001260 
000006 
012504 
012504 


000002 


000100 


012502 
012502 


012506 


012502 


001444 


012502 
012502 
001412 


012502 


001372 


30-JUN-78 
2 


E 
10:10 PAGE 8 
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 


Eh P APRA RRRRRRRRRRRRRRARRSSSRSASELLSSESE SESE SESE RES E SEES SELES SD So 


START OF SERVICE ROUTINES 


WEAR AASRARRRRRRARASASRSASASAASASESESSSSEE ESE SESE SE SESS SERS ESSE SS 


ROSRV: 
MOV 
ADD 
MOV 
CMP 
BEQ 
ADD 


BIS 
BR 
$225: 


DEC 
$226: 


XOSRV: 


SUB 


BIC 
RTI 


R1SRV: 


RCSR, TMP 
#2,1MP 
aTMP,(RO)+ 
TMPO, TMPOE 
$225 

#2, TMP 
#BIT6,aTMP 


$226 


TMP4 


RCSR,TMP 
#6, TMP 
TMPO,aTMP 
TMPO 


#2, TMP 


#BIT6,aTMP 


BGNSRV ROSRV 
LET TMP := RCSR 
LET TMP := TMP + #2 
LET (RO)+ := @TMP 
IF TMPO NE TMPOE THEN 
:GO TO XCSR 
LET TMP := TMP + #2 


;ENABLE XMIT INTERR 
LET @TMP := @TMP SET.BY #BIT6 


ELSE 
;ALL DONE 
LET TMP4 := TMP4 - #1 
ENDIF 
ENDSRV 


BGNSRV XOSRV 
LET TMP := RCSR 
LET TMP := TMP + #6 
LET @TMP := TMPO 
LET TMPO := TMPO + #1 


;GO BACK TO XCSR 
LET TMP := TMP = #2 


:DISABLE XMIT INTERRUPTS, 
;NOT EXER DOUBLE BUFFERING 
LET @TMP := @TMP CLR.BY #BIT6 


ENDSRV 


BGNSRV R1ISRV 
LET TMP := RCSR 


SEQ 0082 
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013737 001260 012502 MOV RCSR, TMP 
062737 000012 012502 ADD #12, TMP 
017721 001350 aTMP,(R1)+ 


023737 012510 012512 TMP1,TMPIE 
001407 $227 


LET TMP := TMP + #12 
LET (R1)* := @TMP 
IF TMP1 NE TMPIE THEN 
:GO TO XCSR 
LET TMP := TMP + #2 


;ENABLE XMIT INTERR 
LET @TMP := @TMP SET.BY #BIT6 


062737 000002 012502 #2,TMP 


052777 000100 001324 #B1T6,aTMP 
000402 B $230 


;ALL DONE 
LET TMP4 := TMP4 = #1 


ENDIF 
ENDSRV 


Be ee ee eee 


005337 012526 


000002 
BGNSRV X1SRV 
LET TMP := RCSR 
LET TMP := TMP + #16 
LET @TMP := TMP1 
LET TMP1 := TMP1 + #1 


ha BACK TO XCSR 
LET TMP := TMP - #2 


;DISABLE XMIT INTERRUPTS, 
:NOT EXER DOUBLE BUFF 
LET @TMP := @TMP CLR.BY #BIT6 


ENDSRV 


013737 001260 012502 RCSR,TMP 
062737 000016 012502 #16, TMP 
013777 012510 001272 TMP1,aTMP 
005237 012510 TMP 1 


162737 000002 012502 #2, TMP 


042777 000100 001252 #BIT6,aTMP 
011230 000002 
011232 BGNSRV R2SRV 
LET TMP := RCSR 
LET TMP := TMP + #22 
LET (R2)+ := @aTMP 
IF TMP2 NE TMP2E THEN 


013737 001260 012502 RCSR, TMP 
062737 000022 012502 #22, TMP 


017722 001230 aTMP,(R2)+ 


023737 012514 012516 TMP2, TMP2E 
001407 $231 
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;GO TO XCSR 
011262 LET TMP := TMP + #2 
011262 062737 000002 012502 ADD #2,TMP 

ENABLE XMIT INTERR 


011270 LET @TMP := @TMP SET.BY #BIT6 
011270 052777 000100 001204 BIS #BIT6,aTMP 

011276 ELSE 

011276 000402 BR $232 


011300 
:ALL DONE 
011300 LET TMP4 := TMP4 = #1 
011300 005337 012526 
011304 ENDIF 
011304 : 
011304 ENDSRV 
011304 000002 


011306 BGNSRV X2SRV 

011306 

011306 LET TMP := RCSR 
011306 013737 001260 012502 RCSR,TMP 

011314 LET TMP := TMP + #26 
011314 062737 000026 012502 #26,TMP 

011322 LET @TMP := TMP2 
011322 013777 012514 001152 TMP2,aTMP 

011330 LET TMP2 := TMP2 + #1 
011330 005237 012514 TMP2 


011334 LET T 
011334 162737 000002 012502 #2, TMP 
;DISABLE XMIT INTERRUPTS, 


:;NOT EXER DOUBLE BUFF. 
011342 LET @TMP := @TMP CLR.BY #BIT6 
011342 042777 000100 001132 #BIT6,aTMP 
011350 ENDSRV 
011350 000002 


:GO BACK TO XCSR 
MP #2 


:= TMP = 


BGNSRV R3SRV 
LET TMP := RCSR 
LET TMP := TMP + #32 
LET (R3)+ := aTMP 
IF TMP3 NE TMP3E THEN 


a er er er ro or or or oP or or ot ot ot er ot et a ee oe a et et ee ee ee et et et et et ee 


013737 001260 012502 RCSR,TMP 
062737 000032 012502 #32,1MP 
017723 001110 aTMP,(R3)+ 
023737 01252C 012522 TMP3, TMP3E 
001407 $233 
:GO TO XCSR 
LET TMP := TMP + #2 


ENABLE XMIT INTERR 
LET @TMP := @TMP SET.BY #BIT6 


062737 000002 012502 #2,TMP 


052777 000100 001064 #B1T6,aTMP 
011416 000402 $234 
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011420 $233: 
;ALL DONE 


011420 LET TMP4 := TMP4 = #1 
011420 005337 012526 

911424 ENDIF 

011424 t 

011424 ENDSRV 

011424 000002 


011426 BGNSRV X3SRV 
011426 : 
011426 LET TMP := RCSR 
011426 013737 001260 012502 RCSR,TMP 
011434 LET TMP := TMP + #36 
011434 062737 000036 012502 #36,TMP 
011442 LET a@TMP := TMP3 
011442 013777 012520 -001032 TMP3 ,aTMP 
011450 LET TMP3 := TMP3 + #1 
011450 005237 012520 TMP3 

ha BACK TO XCSR 


011454 LET TMP := TMP = #2 
011454 162737 000002 012502 #2, TMP 


;DISABLE XMIT INTERRUPTS, 
s;NOT EXER DOUBLE BUFF 
011462 @TMP := @TMP CLR.BY #BIT6 
011462 042777 000100 001012 #B1T6,aTMP 
011470 
011470 000002 RTI 
011472 SEREND: 
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;** RECEIVER STATUS TABLES ** 
:7 BIT _wDS 8 BIT ws 
; O- 37 0- 77 


011472 000100 CHOTAB: .BLKW $ 
000100 CH1TAB: .BLKW ; 40- 77 100-177 
000100 CH2TAB: .BLKW ; 100-137 200-277 
000100 CH3TAB: .BLKW 3140-177 300-377 
STATEND: 
000000 CHMSK: .WORD MASK OF ACTIVE CHANNELS 
000000 CHCTR: .WORD ; CHANNEL CTR 
000000 ACTCH: .WORD ACTIVE CHANNEL CTR 
012500 000000 ERWRD: .WORD ERROR WORD, LOW BYTE IS NO. OF DATA ERRORS 
;HIGH BYTE INDICATES ERROR FLAG DETECTED 


012502 000000 : . WORD ; TEMP STORAGE FOR SERVICE ROUTINES 


012504 000000 : START WORD FOR CH 0 
;END WORD FOR CH 0 


iP oP oP oP oP ot oto? >t >t at ot ot at a ee 


012522 000002 EF: .BLKW 2 
012526 000000 : WORD 


012530 011472 : CHOTAB 
012532 011672 CH1TAB 
012534 012072 CH2TAB 
012536 012272 CH3TAB 


012540 000040 ; ;? BIT WORD TABLE 
012542 000100 
012544 000140 
012546 000200 


012550 000100 : :8 BIT WORD TABLE 
012552 000200 
012554 000300 
012556 000400 
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3749 PRR ARATE AAA A AE TE TET E TEETER EET R EERE EERE EEE eee 
3750 ;* ROUTINE: TIMER 

THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 

IN ANY REGISTER. 


HOWLONG THE MAXIMUM AMOUNT OF TIME TO SPEND IN 
THIS ROUTINE. 
WHICHBIT A MASK WITH THE BIT(S) SET THAT ARE 
TO BE CHECKED. 
REG A POINTER TO THE REGISTER TO BE CHECKED 
SETCLR THE DESIRED RESULTS 
EITHER #SET OR #CLEAR 
OUTPUT: 


THE "C' BIT IS SET TO INDICATE AN ERROR 
BUT IT IS TESTED BY THE IF.ERROR STATEMENT 


WWW 
NNN 
Vw 
wr 
. 7 . 


Ww 
~ 
oa 
_ 


WN 

~ 

w 

‘Oo 
. «Be Be . . . + Be Se Be Se Be Be . . . 
eee eee ee ee 


NOTE:: THE USE OF (R5) IS PART OF THE LINKAGE 
MECHANISM BETWEEN THE CALLER AND THE CALLED 


3768 DE RRRAARRASRARBASRARASRSARSSASASARASRSASASARSE SASSER SSSR ESSER SSSR SSS SY 


Ww 
~~ 
o 
~N 
. . . 


3771 012560 ROUTINE TIMER <HOWLONG,WHICHBIT,REG,SETCLR> 

3772 012560 TIMER: 

3773 012560 LET REGSAV := REG(R5) ; GET POINTER TO REGIST 
3774 012560 016537 000004 012720 MOV REG(R5) ,REGSAV 

3775 012566 LET TIMSAV := HOWLONG(R5) ; SAVE HOWLONG FOR 
3776 012566 016537 000000 012722 MOV HOWLONG(R5) , TIMSAV 

3777 012574 LET FLAG :B= #0 ; INITIALIZE THE EXIT FLAG 
3778 012574 105037 012724 CLRB FLAG 


: START OF AN INFINITE LOOP 


3783 012600 LOOP 

3784 012600 $237: 

3785 ; TEST TO SEE IF WHICHBIT IS SET 

3786 012600 IF WHICHBIT(RS) NOTSETIN @REGSAV THEN 
3787 912600 036577 000002 000112 BIT WHICHBIT(RS) ,@REGSAV 

3788 012606 001003 BNE $241 

3789 012610 LET HOLDSC :B= #0 

3790 012610 105037 012725 CLRB HOLDSC 


3792 012614 000403 BR $242 

3793 012616 $241: 

3794 012616 LET HOLDSC :B= #SET ; REMEMBER THIS 
3795 012616 112737 177777 012725 MOVB #SET,HOLOSC 

3796 012624 ENDIF 

3797 012624 $242: 


; NOW SEE IF THAT WAS WHAT WE WANTED 
3800 012624 1FB HOLDSC EQ SETCLR(RS) THEN 
3801 012624 123765 012725 000006 CMPB HOLDSC,SETCLR(RS5) 

3802 012632 001003 BNE $243 

3803 ; JUST THE THING WE NEEDED 
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012634 LET FLAG :B= #TRUE 
012634 112737 000001 012724 MOVB #TRUE,FLAG 

012642 ENDIF 

012642 


012642 EXIFB FLAG EQ #TRUE OR TIMSAV LE #0 
123727 012724 000001 FLAG, #TRUE 
001414 B $240 
005737 012722 TIMSAV 
012656 003411 $240 
; ONE WAY OR THE OTHER, WE ARE DONE 
: IF WE ARE STILL HERE THEN HANG AROUND A WHILE 


012660 WAITMS 1 ;WAIT FOR 1 MILLI-SECONDS 
010546 R5,-(SP) 
012745 000001 #1.-(R5) 
004737 012732 PC-WAIT 
012605 (SP) +,R5 


005337 012722 TIMSAV 
000737 $237 


LET TIMSAV := TIMSAV = #1 ; COUNTING DOWN 
ENDLOOP ; CONTINUED AT THE TOP 
012702 


; ONLY 2 WAYS TO GET HERE 
: 1). WE RAN OUT OF TIME=---ERROR ! ! 
: 2). THE BIT IS IN THE CORRECT CONDITION--GOOD ! ! 


012702 IFB FLAG EQ #TRUE THEN 
012702 123727 012724 000001 CMPB FLAG, #TRUE 

012710 001001 BNE $244 

012712 RETURN NO.ERROR ; GOOD 
012712 000405 BR $235 

012714 ENDIF 

012714 

012714 RETURN ERROR 

012714 000261 

012716 000404 


012720 000000 REGSAV: .WORD 
TIMSAV: . 
FLAG: ‘. 

012725 HOLDSC: .BYTE 


012726 


; WE ARE DONE GO BACK HOME 
ENDRIN 


$235: 
$236: 


000241 
012730 000207 
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MmARBABRBABRABASBASLAASLASZLASLASAAAASESASESASASESESESSSSSESESAESESSL ESAS So 
ROUTINE: WAIT 
THIS ROUTINE IS USED TO DELAY EXECUTION OF THE 
MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TIME. 
THIS IS ACCOMPLISHED BY INCREMENTING A, 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
° TO APPROXIMATE 1 MILLI SEC. 
sé 'MABRBBARRBARAASAAAASAESSAALALASRASEASLASASASEALASASASEELESSLAELASSEE SESE SS 
012732 ROUTINE WAIT <TIME> 
012732 WAIT: 
012732 PUSH <R1,R2,R3> 


LET R1 := TIME(RS) 
016501 000000 TIME(R5),R1 

INCRU R2 FROM #1 TO R1 BY #1 
012702 000001 #1,R2 


000402 $247 
062702 000001 #01,R2 


020201 R2,R1 
101010 $251 


005003 R3 
000401 $252 


005203 R3 


INCR R3 FROM #0 TO #100 BY #1 


020327 000100 R3,#100 
003001 $254 


ENDINC 
000773 $253 


ENDINC 
000764 $250 


POP <R3,R2,R1> 
ENDRTN 


013010 000207 
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-SBTTL ROUTINE TO SIZE THE BUS 


013012 005737 001252 SIZE: SDEVM BR IF INITIALLY SET 
013016 001070 B 4% BYPASS AUTO-SIZING 


013020 1$: SETVEC #ILLMEM,#INTSRV,APR7 
010146 R1,-(SP) 
012701 000004 #ILLMEM,R1 
012721 013742 #INTSRV,(R1)+ 
012711 000340 #PR7,(R1) 
013036 012601 (SP)+,R1 


013040 013737 001250 013646 SBASE, TMP6 
013046 012737 000001 013644 #1,SFTREG 


013054 005037 013750 : INTFLAG 

005777 000562 SEE IF THERE 

005737 013750 :;GOT INTERRUPT? 

001003 3$ BR IF YES (NO DEVICE) 
013072 055737 013644 001252 SFTREG,SDEVM ELSE THERE, SET MAP 


013100 062737 000010 013646 : #10, TMP6 :GO TO NEXT CHANNEL 
013106 006337 013644 SFTREG 
013112 001360 2$ ;BR IF MORE TO GO 


013114 CLRVEC ILLMEM 
010146 R1,-(SP) 
R2,-(SP) 
000004 ec 
000002 #2,R2 
R2,(R1)+ 
(R1) 


(SP)+,R2 
013140 012601 (SP)+,R1 


013142 005737 001252 SDEVM ;ANYONE THERE? 
001014 E 4$ ;BR IF YES 
eee DEV T0 TEST!> 
013176 000777 ;LOOP HERE TILL PROBLEM FIXED 
:& RESTART AT 200 
013200 105737 001221 : SUSWR+1 :SEE IF ANY CONSOLE 
013204 001434 6$ ;BR IF NONE 


013206 010046 RO,-(SP) iSAVE RO 
001221 = Hae :GET CONSOLE DEVICE x2 
000010 RO,#10 
5$ R IF TOO HI 


7B 
013650 001252 TABL1-2(RO) , SDEVM SET CONSOLE BIT ON MAP 
(SP)+,RO sRESTORE RO 
013232 000421 6$ 


013234 : TYPTXT <<CRLF>!CONSOLE IN SUSWR WRONG! > 
013272 000137 014514 JMP SEOP START ALL OVER 
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013320 


013326 
013334 
013342 
013350 


013356 
013362 
013366 
013372 


013376 
013402 


013422 
013426 


013452 
013456 
013464 


013472 
013476 
013500 


013502 
013522 
013526 


013550 
013556 
013560 


013564 
013570 
013574 
013576 


013604 
013610 
013616 
013620 


013624 


013626 
013630 


J TEST 
11=MAY-78 


013737 
013737 
013737 
013737 


042737 
042737 
042737 
042737 


006237 
006237 
006237 
006237 
000337 


000337 


006237 


012700 
012737 
012737 


012037 


001001 
000441 


104401 


032737 
001402 
104401 


005237 
006237 
001365 
012737 


005237 


104401 
000207 


000061 
020040 
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SEQ 0091 


STACK WILL RESET IN ‘LOOP' 


001252 
001252 
001252 
001252 


177760 
177417 
170377 
007777 


013636 
013636 
013636 
013636 


013640 


013642 
013642 
013642 
013642 
013642 


013634 6$: 
013636 
013640 
013642 


013634 
013636 
013640 
013642 


SDEVM,MASK1 
SDEVM,MASK2 
SDEVM,MASK3 
SDEVM,MASK4 


# C<17>,MASK1 ;SAVE ONLY MODULE 
# €<360>,MASK2 3 

# C<7400>,MASK3 : 
# C<170000>,MASK4 


MASK2 
MASK2 
MASK2 
MASK2 


MASK3 : 


MASK4 
MASK4 
MASK4 
MASK4 
MASK4 : 


<<CRLFO>!WILL TEST: !<CRLF>> 


#MASK1,RO 
#61 ,MODNUM 


TYPTXT 
013634 MOV 
000061 013626 MOV 
000060 013632 MOV #60, CHNUM+2 
013650 : MOV (RO) +, MSK 
BNE 8$ ;BR IF ANY THERE 
BR 11$ 
: TYPTXT <<CRLF>!MODULE !> 
013626 TYPE . MODNUM 
TYPTXT <! CHANNEL !> 
#BITO,MSK 
10$ 
013630 , CHNUM 


013632 : CHNUM+2 
013650 MSK 


9$ 
000060 013632 #60, CHNUM+2 


013626 MODNUM 
013626 ame 


? 
001171 -SCRLF 
PC sELSE EXIT 


MODNUM: .ASCIZ /1/ 
CHNUM: .ASCIZ / O/ 


zINIT MOD # 
: INIT CHANNEL # 


000001 013650 


sELSE TYPE IT 


ELSE RESET CH # 


;BUMP MOD # 
7ALL DONE? 
;BR IF NO 


000065 


000060 


;BUMP CHANNEL CTR 
;BR IF MORE TO CHECK 


CHANNELS 


RIGHT JUSTIFY MODULE 2 CHANNELS 


3 


;ELSE TRY NEXT MODULE 


:BR IF NOT TESTING THAT CHANNEL 
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013634 
013636 
013640 
013642 


013644 
013646 
013650 


013652 
013654 
013656 
013660 


J TEST MACY11 30A(1052) 
11-MAY-78 00:00 


000000 
000000 
000000 
000000 


000000 
000000 
000000 


000010 
000200 
004000 
100000 
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ROUTINE TO SIZE THE BUS 


MASK1: 
MASK2: 
MASK3: 
MASK4: 


SFTREG: 
TMP6: 
MSK: 


TABL1: 


100000 


CONTAINS MODULE 1 CHANNELS 


;SET SDEVM IF CONSOLE ON MODULE 


SEQ 0092 
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-SBTTL ROUTINE TO TEST FOR CONSOLE DEVICE 


013662 113737 001221 013740 TSTCON: MOVB SUSWR+1, TMP7 GET CONSOLE INFO ONLY 
013740 ASR TMP7 sRIGHT JUSTIFY 


013740 001206 ee p+ id " UNDER TEST HAS CONSOLE 
; IF YE 
013736 pai sELSE CLEAR STALE INFO 


013710 000207 


013712 013737 001144 014310 : $TKS,ADDRESS FORCE TTY ADDRESS 
013720 000060 014312 #TKVEC, VECTOR 3 VECTOR 
013726 000001 013736 #TRUE , CONSOLE 7SET FLAG 

013734 000207 PC 


013736 000000 CONSOLE: 0 sFLAG, 1= TESTING CONSOLE DEVICE 
013740 000000 TMP7: 0 ;HOLD CONSOLE # 


-SBTTL INTSRV INTERRUPT SERVICE ROUTINE 


EPPS SSSI S SST SPS Pere reir i rrr r rc citi titi tititi titi tii) 
THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 
"INTFLAG' EACH TIME IT IS CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 
EPPS PSL ISSCC SSeS eter creer irr tritici iit iti titi tt titi iit 


013742 BGNSRV INTSRV :GLOBAL INTERRUPT SERVICE ROUTINE 


013742 INTSRV: 
:ADD 1 TO "INTERRUPT OCCURED’ FLAG 
013742 LET INTFLAG := INTFLAG + #1 
013742 005237 013750 INC INTFLAG 
013746 ENDSRV ; THAT'S ALL 
013746 000002 RTI 
013750 000000 INTFLAG: 0 
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-SBTTL ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS 


RRR RARER E EATER TEETER TERETE EERE RE EEE REE RE ERE REE EEE 
;* THIS ROUTINE CAUSES ADRS TO POINT TO THE 
;* ADDRESS OF DLV11-J UNDER TEST, ADRS +2 TO 
;* PUINT TO THE VECTOR OF THE DLV11-J UNDER TEST. 


PES STII teal ii isi titi tt iii lic rit isittii tii t titi tii t itis iti ii itt) 
013752 013737 001250 014310 CYCLE: SBASE ,ADDRESS 
013760 013737 001244 014312 M S$VECT1,VECTOR 


013766 023727 001206 000005 SUNIT,#5 ;DONE ALL MODULES? 
1$ ;BR IF NO 


014320 ;RE-INIT 
014316 
000001 001206 
014322 
014020 000137 014514 :& EXIT BACK TO ‘LOOP’ 


STACK WILL GET RESET THERE. 
014024 013700 001206 : SUNIT,RO 
014030 RO ;MULT BY 2 TO INDEX INTO TABLES 
014032 014246 TABL2-2(RO) , ADDRESS ADD MODULE OFFSET 
014040 014246 TABL2=2(RO) , VECTOR ADD VECTOR OFFSET 
014046 017037 014256 @TABL3-2(RO) , MASK ;STORE CHANNELS IN 'MASK' 


014054 005037 013736 CONSOLE 
014060 014314 MASK 


;ANY CHANNELS TO BE TESTED? 
014064 , 


BR IF YES 


014066 001206 ;ELSE BUMP UNIT # 
014072 000137 013752 : TRY AGAIN 


014076 023727 014320 000001 : PHASE2 ,#TRUE DOING PHASE 2? 

014104 001452 6$ :BR IF YES 

014106 023727 014316 000004 CHAN, #4 ELSE, DONE ALL CHANNELS? 
014114 001021 4$ :BR IF NO 


014116 005037 014316 CHAN ELSE BACK TO 0 
000020 001220 #WRAP ,SUSWR ;DOING DATA WRAP TESTS? 
3$ :BR IF YES 
001206 SUNIT sELSE GO TO NEXT UNIT, NO PHASE 2 
014136 000137 013752 CYCLE 38 DO IT 


014142 012737 000001 014320 : #TRUE ,PHASE2 
014150 005037 014322 PICNT 
014154 000137 013752 CYCLE GO TO PHASE 2 TESTING 


014160 013700 014316 : CHAN,RO 
RO ;MULT BY 2 TO INDEX TABLE 
014270 TABL4 (RO) ,ADDRESS ADD CHANNEL OFFSET 
014270 é TABL4 (RO) ,VECTOR :ADD VECTOR OFFSET 
014300 TABL5(RO) , MASK :1S THAT CHANNEL TO BE TESTED? 
014210 001413 7$ :BR IF NO 


014212 023727 014316 CHAN, #3 :1S IT CHAN 3? 
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CVDLAA. 


DLV11- 
P11 


014220 
014222 


014226 
014232 
014236 


014240 
014244 


014250 
014252 
014254 
014256 


014260 
014262 
014264 
014266 


014270 


014276 
014300 


014306 


014310 
014312 
014314 
014316 
014320 
014322 


J TEST MACY11 30A(1052) 
11-MAY-78 00:00 


001002 
004737 013662 
005237 014316 
012701 014310 
000207 


005237 014316 
000137 013752 


000000 
000040 
000100 
000140 


013634 
013636 
013640 
013642 


000000 
000010 
000020 
000030 


000601 
000002 
000004 
000010 


000000 


000000 
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ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS 


BNE 5$ :BR IF NO 
JSR PC, TSTCON ELSE SEE IF ITS THE CONSOLE 


INC CHAN ;BUMP CHANNEL CTR FOR NEXT TIME 
MOV #ADDRESS, ADRS 
RTS PC :GO TO PHASE 1 TESTS 


CHAN 
CYCLE : TRY AGAIN 


;OFFSET FOR MODULE 


. 
’ 


MASK1 ; MODULE CHANNEL DATA 
MASK2 : 
MASK3 ; 
MASK4 ; 


: CHANNEL 0 OFFSET 
: 2 
; 3 


:BIT TO TEST CHANNEL 0 PRESENT 


ADDRESS: 

VECTOR: 

MASK: 

CHAN: 

PHASE2: 

PICNT: ;CTR TO PRINT ‘PHASE 1° ONLY ONCE 


SEQ 0095 
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014324 ROUTINE MYTYPE 


MYTYPE: 
<<CRLFD>*TEST # *> 
STESTN 
<*, ERROR # *> 
113737 001114 001176 SITEMB,SFATAL ; APT FATAL ERROR NUMBER 


I 


<*, VECTOR: *> 
0 DLVEC 
014506 104401 001171 »SCRLF 
014512 ENDRTN 
014512 


014512 
014512 000207 
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-SBTTL END OF PASS ROUTINE 


ECCS SIPC T SPSS PTS P TP Peter rrr critic iter ict iter iii iit itt ttt) 
;* INCREMENT THE PASS NUMBER ($PASS) 

;* INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

s*TYPE “END PASS #XXXXX"' (WHERE XXXXX IS A DECIMAL NUMBER) 

;*IF THERES A MONITOR GO TO IT 

;*IF THERE ISN'T JUMP TO LOOP 


014514 SEOP: 

014514 000004 

014516 001102 STSTNM 7;ZERO THE TEST NUMBER 

014522 001160 STIMES ::ZERO THE NUMBER OF ITERATIONS 
014526 001202 :; INCREMENT THE PASS NUMBER 


SPASS 
014532 100000 001202 oe :;DON'T ALLOW A NEG. NUMBER 
+ 


SEOPCT: . 1 
SDOAGN seVes 
elma ::RESTORE COUNTER 


; ; LOOP? 


SENDCT: 


014621  SENDMG 3: TYPE ‘‘END PASS #°" 
001202 $PASS,-(SP) ;;SAVE SPASS FOR TYPEOUT 
3:GO0 TYPE--DECIMAL ASCII WITH SIGN 
014616 » SENULL 7: TYPE A NULL CHARACTER 
000042 $GET42: a#42,R0 ::GET MONITOR ADDRESS 
$DOAGN ;;BRANCH IF NO MONITOR 
LEAR THE WORLD 
SENDAD: PC, (RO) ;,90 TO MONITOR 
7; SAVE ROOM 
37 FOR 
000240 ssACTI1 
SDOAGN: 
000137 a(PC)+ 3; RETURN 
SRTNAD: . LOOP 
377 000 $ENULL: . -1,-1,0 sz;NULL CHARACTER STRING 
042412 042116 S$ENDMG: . <15><12>/END PASS #/ 
051501 020123 
014634 000043 
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014636 
014642 
014644 
014646 
014650 
014652 
014656 
014664 
014666 
014674 
014676 
014702 
014706 


-J TEST 
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105737 
100002 


013746 


105366 
002770 
004737 
105337 


001157 


000002 
000001 


000100 


014706 
015702 


000040 


000002 
000011 
000200 


015114 


015050 
001156 


001154 
000001 


015050 
015114 


001214 
001215 


001215 
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H 8 
10:10 PAGE 100 


-SBTTL TYPE ROUTINE 


CCP PSPSPS PTT r errr cirri iii titi iii titi tii tii iti i iit) 
S #ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


> *NOTE1: 
s*NOTE2: 
;*NOTES: 
-* 


7*CALL: 


rg USING A TRAP INSTRUCTION 
R 


TYPE 
TYPE 


MESADR 


61$: 
62$: 


2$: 


3S: 
4$: 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESAD 


STPFLG 
1$ 


3$ 

RO,~(SP) 
a2(SP),RO 
#APTENV,SENV 


6 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
PC, SATY3 


0 
#APTCSUP,SENVM 
60$ 
(RO)+,=(SP) 
4$ 

(SP)+ 


(SP)+,RO 
#2, (SP) 


#HT, (SP) 
8$ 

#CRLF, (SP) 
5$ 

(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 


SNULL ,~(SP) 
1(SP) 
6$ 


PC, $TYPEC 
SCHARCNT 


:;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3:18 THERE A TERMINAL? 
7:BR IF YES 
3;HALT HERE IF NO TERMINAL 
7; LEAVE 
3: SAVE RO 
3:GET ADDRESS OF ASCIZ STRING 
; ;RUNNING IN APT MODE 

3NO,GO CHECK FOR APT CONSOLE 
>: SPOOL MESSAGE TO APT 
32:NO,GO CHECK FOR CONSOLE 
;:;SETUP MESSAGE ADDRESS FOR APT 
::SPOOL MESSAGE TO APT 
3:MESSAGE ADDRESS 
;:APT CONSOLE SUPPRESSED 
7: YES,SKIP TYPE OUT 
;:PUSH CHARACTER TO BE TYPED ONTO STACK 
:;BR IF IT ISN'T THE TERMINATOR 
3: 1F TERMINATOR POP IT OFF THE STACK 
7 RESTORE RO 
3 ;ADJUST RETURN PC 
3 :RETURN 
;:BRANCH IF <HT> 


;;BRANCH IF NOT <CRLF> 


3;POP <CR><LF> EQUIV 
7; TYPE A CR AND LF 


3:CLEAR CHARACTER COUNT 

::GET NEXT CHARACTER 

::GO TYPE THIS CHARACTER 

3:18 IT TIME FOR FILLER CHARS.? 
::1F NO GO GET NEXT CHAR. 

::GET # OF FILLER CHARS. NEEDED 
::;AND THE NULL CHAR. 

:;DOES A NULL NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 
::GO TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 


SEQ 0098 
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015022 000770 BR 7$ ;; LOOP 
;HORIZONTAL TAB PROCESSOR 


015024 112716 000040 8$: #' (SP) ;REPLACE TAB WITH SPACE 
004737 915050 9$: PC,STYPEC TYPE A SPACE 
132737 000007 015114 #7,$CHARCNT ;;BRANCH IF NOT AT 
001372 9$ 3; TAB STOP 
005726 ;:;POP SPACE OFF STACK 
000724 B 3:;GET NEXT CHARACTER 
164074 STYPEC: ;;WAIT UNTIL PRINTER IS READY 
B 


000002 164066 2(SP) ,aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 #CR,2(SP) 3:18 CHARACTER A CARRIAGE RETURN? 
1$ ;;BRANCH IF NO 
015114 SCHARCNT 7: YES--CLEAR CHARACTER COUNT 
STYPEX 7 3EXIT 
000012 000002 1$: ALF ,2(SP) 3218S CHARACTER A LINE FEED? 
STYPEX ;;BRANCH IF YES 
NCB (PC)+ ;;COUNT THE CHARACTER 
015114 SCHARCNT:.WORD 0 ;; CHARACTER COUNT STORAGE 
015116 000207 $STYPEX: RTS PC 


4 
4 
rf 
4 
4 
4 
4 
4 
‘ 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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CVDLA 


015120 
015126 
015130 
015134 
015136 
015142 
015146 
015152 
015154 
015162 


015164 


015216 


015220 
015224 


015230 


015246 


015250 


015326 


TEST 
11-MAY-78 


022737 


001456 


104401 
104401 
013746 
104402 
104401 
005046 
005046 
105777 
100375 


117746 
042716 


021627 
001005 
104401 
062706 
000757 


021627 


021627 


MACY11 30A(1052) 


00:00 


000176 
164010 
164004 
177600 
000007 
001134 
015645 
015652 
090176 


015663 


163726 


163722 
177600 


000025 


015640 
000006 


000015 
000004 
000002 
000006 
001171 
001135 
000100 


015050 
000060 


001140 


000001 


163646 


000001 
163624 
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TTY INPUT ROUTINE 
-SBTTL TTY INPUT ROUTINE 


PRR EEE REET EE 


* ENABL LSB 


SRR REE RE AEE ERE EEE EEE E REE EE 
:*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WIL 

SeSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
:*WHEN OPERATING IN TTY FLAG MODE. 


SCKSWR: CMP 


T 
SGTSWR: 
M 


19$: 
7$: 


#SWREG,SWR 
15$ 

asTKs 

15$ 
a$TKB,-(SP) 
# C177, (SP) 
#7, (SP)+ 
15$ 
SAUTOB,#1 
15$ 

»SCNTLG 

- SMSWR 
SWREG,-(SP) 
, SMNEW 
-(SP) 

-(SP) 

asTKs 

7$ 


a$TKB,-(SP) 
# (177, (SP) 


(SP) ,#25 
10$ 


15$ 
#100, a$TKS 


PC, STYPEC 
(SP), #60 


3:18 THE SOFT-SWR SELECTED? 
;;BRANCH IF NO 

3;CHAR THERE? 

::1F NO, DON'T WAIT AROUND 
7;SAVE THE CHAR 

3;STRIP-OFF THE ASCII 

::I1S IT A CONTROL G? 

:;NO, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 
;;BRANCH IF YES 


;:ECHO THE CONTROL-G ( G) 

3: TYPE CURRENT CONTENTS 

7:SAVE SWREG FOR TYPEOUT 

3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
:;PROMPT FOR NEW SWR 

;:CLEAR COUNTER 

3: THE NEW SWR 

3;CHAR THERE? 

si: 1F NOT TRY AGAIN 


::PICK UP CHAR 
3;MAKE IT 7-BIT ASCII 


3:18 IT A CONTROL-U? 
;;BRANCH IF NOT 

::YES, ECHO CONTROL-U ( U) 
;: IGNORE PREVIOUS INPUT 
;;LET'S TRY IT AGAIN 


i718 IT A <CR>? 

;;BRANCH IF NO 

7:YES, IS 17 THE FIRST CHAR? 
;;BRANCH IF YES 

7; SAVE NEW SWR 

3; CLEAR UP STACK 

;:ECHO <CR> AND <LF> 

3; RE-ENABLE TTY KBD INTERRUPTS? 
;;BRANCH IF NOT 

3;RE-ENABLE TTY KBD INTERRUPTS 
>; RETURN 

3:ECHO CHAR 

s:CHAR < 0? 


SEQ 0100 
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015332 002420 18$ ;;BRANCH IF YES 
000067 (SP) , #67 3; CHAR > 7? 
18$ ;;BRANCH IF YES 
000060 #60, (SP)+ s:STRIP-OFF ASCII 
000002 2 ) 3:18 THIS THE FIRST CHAR 
;;BRANCH IF YES 
3:NO, SHIFT PRESENT 
33 CHAR OVER TO MAKE 
33 ROOM FOR NEW ONE. 
000062 17$: c 2(SP) 3;KEEP COUNT OF CHAR 
177776 -2(SP), (SP) 37SET IN NEW CHAR 
B 7$ 3:GET THE NEXT ONE 
001170 18$: ,SQUES si TYPE ?<CR><LF> 
015400 000720 BR 20$ 3: SIMULATE CONTROL-U 
-DSABL LSB 


PPRR RAR R RATA RATER ETAT RE TERE EERE EEE ERE ERR eee 
*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

3*CALL: 

i RDCHR 3: INPUT A SINGLE CHARACTER FROM THE TTY 
se RETURN HERE :;CHARACTER IS ON THE STACK 

3@ ;:WITH PARITY BIT STRIPPED OFF 


015402 011646 SRDCHR: MOV (SP),-(SP) ::PUSH DOWN THE PC 
016666 000004 000002 MOV 4(SP),2(SP) ;SAVE THE PS 
105777 163526 1$: asTKs ::WAIT FOR 
1$ 3:A_ CHARACTER 
163522 000004 @$TKB,4(SP) 3;READ THE TTY 
177600 000004 # C<177>,4(SP) ;;GET RID OF JUNK IF ANY 
000004 000023 4(SP) ,#23 3:18 IT A CONTROL-S? 
3$ ;;BRANCH IF NO 
163474 : asTKs 7;WAIT FOR A CHARACTER 
2$ ;;LOOP UNTIL ITS THERE 
163470 a$TKB,-(SP) ::GET CHARACTER 
177600 # C177, (SP) :;MAKE IT 7-BIT ASCII 
000021 (SP)+,#21 :;1S IT A CONTROL-Q? 
2$ ilk NOT DISCARD IT 
1$ :YES, RESUME 
000004 000140 : 4(SP),#140 ::1$ IT UPPER CASE? 
4$ ;;BRANCH IF YES 
000004 000175 4(SP),#175 7:18 IT A SPECIAL CHAR? 
4$ ;:BRANCH IF YES 
000040 000004 #40,4(SP) ;:MAKE IT UPPER CASE 
015520 000002 4$: ::GO BACK TO USER 
SERRE EEE EEE EAE 


*THIS A peties WILL INPUT A STRING FROM THE TTY 


RDOLIN ;: INPUT A STRING FROM THE TTY 
RETURN HERE ; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O'S 


015522 010346 : MOV R3,~-(SP) 7; SAVE R3 
015524 012703 015630 1$: MOV #STTYIN,RS 7;GET ADDRESS 
015530 022703 015640 ; CMP WSTTYINe8.,R3 =; ;BUFFER FULL? 
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015534 101405 4$ ;;BR IF YES 
3:GO READ ONE CHARACTER FROM THE TTY 
(SP)+, (R3) 3;GET CHARACTER 
000177 oem 7:18 IT A RUBOUT 


$ 
001170 : ,$QUES sytVPe AT 
1$ 3;CLEAR THE BUFFER AND LOOP 
015626 : (R3),9$ 3;ECHO THE CHARACTER 
015626 , 
000015 #15, (R3)+ 3; CHECK FOR RETURN 
2$ ;;LOOP IF NOT RETURN 
177777 ;;CLEAR RETURN (THE 15) 
001172 $l 7: TYPE A LINE FEED 
RESTORE R3 
; ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 ‘ be FIRST ASCII CHARACTER ON IT 
015630 000004 #STTYIN,4(SP) 
7 RETURN 


9$: ‘ 3:STORAGE FOR ASCII CHAR. TO TYPE 
‘ 3: TERMINATOR 
STTVIN: . . 7 ;RESERVE 8 BYTES FOR TTY INPUT 
005015 000 $CNTLU: . / U/<15><12> >: CONTROL ‘'U'' 
000012 $CNTLG: . / G/<15><12> ; CONTROL ‘'G'' 
020122 $MSWR: .ASCIZ <15><12>/SWR = / 


053505 $MNEW: .ASCIZ / NEW = / 


04 
015670 036440 0600040 
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112737 
112737 
000403 
112737 


010046 


000000 
105737 


000100 


MACY11 30A(1052) 
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000001 
000001 


000001 


016136 
000001 
000100 
000004 
000002 
001174 


001210 


001210 


001212 
000004 


000004 
000002 
177776 
014636 


016140 
001214 
001174 


000004 
000002 
001174 
016140 
016137 
016136 


016140 
016136 


016140 


001214 
001215 


000004 


001174 


016050 
000004 


001176 
000004 
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APT COMMUNICATIONS ROUTINE 
-SBTTL APT COMMUNICATIONS ROUTINE 


FREER ERE AEE EEE EEE EEE EEE EEE EAE EERE EEKEREREEE 


SATY1: MOVB 
SATY3: MOVB 


SATY4: 
SATYC: 


TS 
$MFLG: .BYTE 
$LFLG: .BYTE 
SFFLG: .BYTE 


-EVEN 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 


#1,SFFLG 
#1, $MFLG 
SATYC 

#1,SFFLG 


RO,-(SP) 
R1,-(SP) 
hee 


$ 
—— 


#APTSPOOL , SENVM 
3$ 


a4(SP),RO 
#2,4(SP) 
— 
RO, $MSGAD 
(RO)+ 

2s 
SMSGAD,RO 
RO 


RO, $MSGLGT 
Ereeneerers 


5 
a4(SP) 4% 


PC, STYPE 
0 


SFFLG 
12$ 

SENV 

12$ 
SMSGTYPE 
11$ 
@4(SP) ,SFATAL 
#2,4(SP) 
SMSGTYPE 
SFFLG 
S$LFLG 
SMFLG 
(SP)+,R1 


(SP)+,RO 
PC 
0 


0 
0 


3;TO REPORT FATAL ERROR 
3:TO TYPE A MESSAGE 


:;TO ONLY REPORT FATAL ERROR 


7:PUSH RO ON STACK 

37PUSH R1 ON STACK 

;:SHOULD TYPE A MESSAGE? 

sc 1F NOT: R 

a ge UNDER APT? 
s1F NOT BR 

3; SHOULD SPOOL MESSAGES? 
31F NOT BR 

GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 
77SEE IF DONE W/ LAST XMISSION? 
sc IF NOT: WAIT 
;:PUT ADDR IN MAILBOX 
3:FIND END OF MESSAGE 


3;SUB START OF MESSAGE 
::GET MESSAGE LNGTH IN WORDS 
3:PUT LENGTH IN MAILBOX 
:;TELL APT TO TAKE MSG. 


; PUT MSG ADDR IN JSR LINKAGE 
;BUMP RETURN ADDRESS 

33;PUSH 177776 ON STACK 

::CALL TYPE MACRO 


#3 SHOULD REPORT FATAL ERROR? 
:;1F NOT: B6R 
: RUNNING — APT? 

F NOT: 
3 3F INISHED LAST MESSAGE? 

:1F NOT: WAIT 
::GET ERROR a 

;BUMP RETURN ADDR. 

33TELl api TO TAKE ERROR 
7:CLEAR FATAL FLAG 
:;CLEAR LOG FLAG 
::CLEAR MESSAGE FLAG 
::POP STACK INTO R1 
+3 POP a INTO RO 


77 FATAL FLAG 


SEQ 0103 
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4484 000040 APTCSUP=040 








8B 9 
30-JUN-78 10:10 PAGE 107 
ERROR HANOLER ROUTINE 


-SBTTL ERROR HANDLER ROUTINE 


Se apew plow TEST MACY11 30A(1052) 


CVDLAA.P11 11-MAY-78 00:00 SEQ 0105 


PRR AAR ATR A ARTA A ARATE ATTA A REET RATATAT ERA EERE ERE 
;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO MYTYPE ON ERROR 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

3*SW15=1 HALT ON ERROR 

3*SW13=1 INHIBIT ERROR TYPEOUTS 

7*SW10=1 BELL ON ERROR 

3 *SWO9=1 LOOP ON ERROR 


> *CALL 
3° N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


016142 


016340 


104407 


104401 
122737 


013716 
022737 
001001 
000000 


000002 


001103 


001102 
002000 
001164 
001112 
001116 
000002 
162700 
020000 


014324 
001171 


000001 


001114 
015712 


162646 


001000 


001110 
001162 


001162 
014602 


162762 
162752 


001214 
016262 


162632 


000042 


SERROR: 
7$: 


SERFLG 
7$ 


STSTNM,@DISPLAY 


#B1T10,aSwR 
1$ 


, SBELL 
SERTTL 
(SP), SERRPC 
#2, SERRPC 


@SERRPC,SITEMB 


+ Ne aaa 


208 
PC,MYTYPE 
, SCRLF 


#APTENV,SENV 
2$ 


SITEMB,21$ 
peers 


0 
228 
aSWR 
3$ 


#BITO9,aSWR 
4$ 


SLPERR, (SP) 
SESCAPE 


5$ 
SESCAPE, (SP) 


#SENDAD ,a#42 
6$ 


3: TEST FOR CHANGE IN SOFT-SWR 

3:SET THE ERROR FLAG 

;;DON'T LET THE FLAG GO TO ZERO 
;:DISPLAY TEST NUMBER AND ERROR FLAG 
7;BELL ON ERROR? 

3:NO - SKIP 

3:RING BELL 

;;COUNT THE NUMBER OF ERRORS 

3:GET ADDRESS OF ERROR INSTRUCTION 


:;STRIP AND SAVE THE ERROR ITEM CODE 
::SKIP TYPEOUT IF SET 

;7SKIP TYPEOUTS 

::G0 TO USER ERROR ROUTINE 


>:RUNNING IN APT MODE 

:;NO,SKIP APT ERROR REPORT 

;;SET ITEM NUMBER AS ERROR NUMBER 
;;REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 

;;HALT ON ERROR 

::SKIP IF CONTINUE 

;;HALT ON ERROR! 

:;TEST FOR CHANGE IN SOFT-SWR 
;;LOOP ON ERROR SWITCH SET? 
;:BR IF NO 

:;FUDGE RETURN FOR LOOPING 

;; CHECK FOR AN ESCAPE ADDRESS 
;;BR IF NONE 

:;FUDGE RETURN ADDRESS FOR ESCAPE 


;;ACT-11 AUTO-ACCEPT? 
;;BRANCH IF NO 
33 Ves 


; RETURN 





CVDLAAO DLV11 
CVDLAA.P11 


016342 
016342 
016344 
016352 
016354 


016356 


016554 


-J TEST 


MACY11 30A(1052) 


11-MAY-78 00:00 


104407 
032777 
001114 
000416 


013746 


000423 
032777 


113737 


040000 


000004 
016402 
177060 
000004 


000004 


000400 
162512 
001103 
001115 
001000 
001110 


001103 
001160 


004000 
001202 


001104 
001160 


000001 
016620 
001102 
001102 


162566 


000004 


162520 
001102 


001103 
162462 
001106 


162430 


001104 


001104 
001160 


001200 


30-JUN-78 


. 
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SCOPE HANDLER ROUTINE 
-SBTTL SCOPE HANDLER ROUTINE 


STARR AREER RARE REET AERA AERA AEE REA EREAERREAEEEEAEREKEKEEEE 


:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


7*SW14=1 


SSCOPE: 
CKSW 


1$: BIT 


BNE 
jAAAAASTART 
$XTSTR: BR 


5$: 


1$: 

M 
$SVLAD: 

M 


LOOP ON TEST 


INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWR<7:0> 
3; SCOPE=I0T 


#B1T14,aSWR 


SOVER 
OF ery FOR THE XOR 


Q@#ERRVEC,-(SP) 
#5$ ,a#ERRVEC 
a#177060 
(SP)+, a#ERRVEC 
SSVLAD 
(SP)+,(SP)+ 

* aa -@#ERRVEC 


3:TEST FOR CHANGE IN SOFT=-SWR 
: LOOP ON PRESENT TEST? 
sYES IF SW14=1 
TESTERS#MHF 
3: 1F RUNNING ON THE ‘'XOR'’ TESTER CHANGE 
3; THIS INSTRUCTION TO A ‘‘NOP'' (NOP=240) 
3:SAVE THE CONTENTS OF THE ERROR VECTOR 
3:SET FOR TIMEOUT 
3; TIME OUT ON XOR? 
;:RESTORE THE ERROR VECTOR 
3:GO TO THE NEXT TEST 
3:CLEAR THE STACK AFTER A TIME OUT 
: ;RESTORE THE ERROR VECTOR 


7 
CODE FOR THE XOR TESTER####A 


#B1TO8,aSWR 

2$ 
@SWR,STSTNM 
SOVER 

SERFLG 

3$ 
a 
#B1TO9,aSwR 
4$ 
SLPERR,S$LPADR 
SOVER 


SERFLG 
STIMES 
1$ 


#B1T11,aSwWR 
1$ 


SPASS 
1$ 


SICNT 
STIMES,SICNT 
SOVER 


#1,$I1CNT 
SMXCNT, STIMES 
STSTNM 
STSTNM,STESTN 


OOP ON THE PRESENT TEST 

+s LOOP ON SPEC. TEST? 
:BR IF NO 

:30N THE — TEST? 
YES 


IF 
::HAS AN ERROR OCCURRED? 
::BR IF NO 
a ae FOR THIS TEST OCCURRED? 
N 


7 BR 
tte ON ERROR? 


NO 
73 SET Loop ADDRESS TO LAST SCOPE 


:;ZERO THE ERROR FLAG 
;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
:;ESCAPE TO THE NEXT TEST 
:: INHIBIT ITERATIONS? 
;:BR IF YES 
ilF FIRST PASS OF PROGRAM 

INHIBIT ITERATIONS 
:; INCREMENT ITERATION COUNT 
;:CHECK THE NUMBER OF ITERATIONS MADE 
:2;BR IF MORE ITERATION REQUIRED 
;;REINITIALIZE THE ITERATION COUNTER 
;;SET NUMBER OF ITERATIONS TO DO 
;;COUNT TEST NUMBERS 
;:SET TEST NUMBER IN APT MAILBOX 


SWR<7:0> 


SEQ 0106 





CVDLAAO DLV11-J TEST 
CVDLAA.P11 11-MAY-78 00:00 


016562 011637 001106 


001115 
162330 SOVER: 


001106 att 
016620 003720 $MXCNT: 2000. 
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(SP) ,SLPADR :;SAVE SCOPE LOOP ADDRESS 
(SP), SLPERR ;;SAVE ERROR LOOP ADDRESS 
SESCAPE ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
#1, SERMAX ;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
SLPADR, (SP) ;;FUDGE RETURN ADDRESS 

: FIXES PS 

;;MAX. NUMBER OF ITERATIONS 


SEQ 0107 





i, 
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CVDLAA.P11 11-MAY-78 00:00 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0108 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


FERRER EERE REE REE EEE EERE REET EEA RARE REAEERA EEE 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 

>*CALL: 

a MOV NUM,-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 
3* DS 3:G0 TO THE ROUTINE 


016622 STYPDS: 
010046 RO,-(SP) ;;PUSH RO ON STACK 
R1,-(SP) ;;PUSH R1 ON STACK 
R2,-(SP) ;;PUSH R2 ON STACK 
R3,-(SP) ;;PUSH R3 ON STACK 
R5,-(SP) ;;PUSH R5 ON STACK 
020200 #20200,-(SP) :;SET BLANK SWITCH AND SIGN 
000020 20(SP),R5 ::GET THE INPUT NUMBER 
1$ ::BR IF INPUT IS POS. 
R5 ;:MAKE THE BINARY NUMBER POS. 
000055 000001 #'=,1(SP) ::MAKE THE ASCII NUMBER NEG. 
1$: RO ::ZERO THE CONSTANTS INDEX 
017036 #SDBLK ,R3 ;;SETUP THE OUTPUT POINTER 
000040 #’ ,(R3)+ :;SET THE FIRST CHARACTER TO A BLANK 
:;CLEAR THE BCD NUMBER 


R2 
017026 SDTBL(RO),R1 ::GET THE CONSTANT 
R1,R5 ::FORM THIS BCD DIGIT 
::BR IF DONE 
:; INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
7: CHECK IF BCD DIGIT=0 
>;FALL THROUGH IF 0 
i:STILL DOING LEADING 0'S? 
7:;BR IF YES 
3:MSD? 
6$ 7:BR IF NO 
000001 177777 1(SP),-1(R3) 77; YES--SET THE SIGN 
000060 6$: #'O,R2 7:MAKE THE BCD DIGIT ASCII 
000040 $ ‘ 3:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
3:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3; JUST INCREMENTING 
000010 3:;CHECK THE TABLE INDEX 
2$ 3:G0 DO THE NEXT DIGIT 
::G0 TO EXIT 
::GET THE LSD 
3:G0 CHANGE TO ASCII 
7;WAS THE LSD THE FIRST NON-ZERO? 
9$ 3;BR IF NO 
177777 177776 -1(SP),-2(R3) 7: YES--SET THE SIGN FOR TYPING 
9 (R3) 3:;SET THE TERMINATOR 
(SP)+,R5 3;POP STACK INTO R5 
(SP)+,R3 7;POP STACK INTO R3 
017002 012602 (SP)+,R2 ;;POP STACK INTO R2 





CVDLAAO A eee 


017004 


017036 


J TEST 
11-MAY-78 00:00 


012601 
012600 
104401 
016666 
012616 


000004 


MACY11 30A(1052) 


017036 
000002 000004 


$DTBL: 


$DBLK: 


30-JUN-78 


10. 
-BLKW 


eA, 
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(SP)+,R1 
(SP)+,R0 

, SDBLK 
2(SP),4(SP) 
(SP)+, (SP) 


;;POP STACK INTO R1 
;;POP STACK INTO RO 
;;NOW TYPE THE NUMBER 
;;ADJUST THE STACK 


;;RETURN TO USER 


SEQ 0109 





Lad 


wn 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


ECS SITS S SSS r reir i rir iit ri rit iii i titi iit i iti tii tit iis) 

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 

;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
;*CALL: 


MOV NUM ,~ (SP) ;;NUMBER TO BE TYPED 
TYPOS 7;CALL FOR TYPEOUT 
-BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
-BYTE &M 7:M=1 OR O 
3; 1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


7 *S$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 

7 *CALL: 

jt MOV NUM, =-(SP) > ;NUMBER TO BE TYPED 

yt TYPON ;i:CALL FOR TYPEOUT 


tt 
;*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


s*CALL: 
;* MOV NUM,-(SP) > NUMBER TO BE TYPED 
i TYPOC 3;CALL FOR TYPEOUT 


017046 017646 000000 $TYPOS: MOV a(SP),-(SP) ;:PICKUP THE MODE 
116637 000001 017271 MOVB 1(SP), SOF ILL 3;LOAD ZERO FILL SWITCH 
112637 017273 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
062716 000002 #2,(SP) ADJUST RETURN ADDRESS 
000406 B STYPON ° 
112737 000001 017271 $TYPOC: #1,S0FILL :;SET TRE ZERO FILL SWITCH 
112737 000006 017273 MO #6, SOMODE+1 3;SET FOR SIX(6) DIGITS 
112737 000005 017270 $TYPON: #5,SOCNT 33 ITERATION COUNT 
010346 R3,-(SP) ; 3 
010446 R4,-(SP) 
010546 R5,-(SP) : 

017273 + gedit c ::GET THE NUMBER OF DIGITS TO TYPE 


000006 #6,R4 ;; SUBTRACT IT FOR MAX. ALLOWED 
017272 R4,$OMODE 7:SAVE IT FOR USE 
017271 SOFILL,R4 3:GET THE ZERO FILL SWITCH 
000012 12(SP),R5 ;;PICKUP THE INPUT NUMBER 
3: CLEAR THE OUTPUT WORD 
;;ROTATE MSB INTO ‘'C"’ 
3:G0 DO MSB 
7: FORM THIS DIGIT 


: R3 7;GET LSB OF THIS DIGIT 
017272 7; TYPE THIS DIGIT? 
7$ ;;BR IF NO 
177770 #177770,R3 3:GET RID OF JUNK 
4$ s TEST FOR 0 
R4 7; SUPPRESS THIS 0? 
017206 001403 5$ 37BR IF YES 
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-P11 11-MAY-78 00:00 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0111 


017210 005204 4$: ;;DON'T SUPPRESS ANYMORE 0'S 
000060 ;:MAKE THIS DIGIT ASCII 
000040 5$: 7:MAKE ASCII IF NOT ALREADY 
017266 3: SAVE FOR TYPING 
017266 8 3:;GO TYPE THIS DIGIT 
017270 7$: ;;COUNT BY 1 

2$ 3;BR IF MORE TO DO 
3;BR IF DONE 
3: INSURE LAST DIGIT ISN'T A BLANK 
3:G0 DO THE LAST DIGIT 

(SP)+,R5 ; RESTORE R5 

(SP)+,R4 RESTORE R4 

(SP)+,R3 ; RESTORE R3 

000002 000004 Lhe ee ot 3;SET THE STACK FOR RETURNING 
SP)+,(SP 


7 RETURN 
8$: . ;:STORAGE FOR ASCII DIGIT 
‘ 3; TERMINATOR FOR TYPE ROUTINE 
$OCNT: . ;:OCTAL DIGIT COUNTER 
0 SOFILL: . 37ZERO FILL SWITCH 
017272 000000 SOMODE: .WORD ;z;NUMBER OF DIGITS TO TYPE 
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-SBTTL TRAP DECODER 


eee S CSCS ST eerie irre irri tii tri iii iii iii i iti titi ii tii iti 
 STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


017274 010046 STRAP: RO,-(SP) 7; SAVE RO 
016600 000062 3;GET TRAP ADDRESS 
005740 ; BACKUP BY 2 
111000 3:GET RIGHT BYTE OF TRAP 
006300 RO :POSITION FOR INDEXING 
016000 017330 STRPAD(RO),RO ;; INDEX TO TABLE 

017314 000200 RO 3:G0 TO ROUTINE 


3: THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 
017316 011646 $TRAP2: MOV (SP) ,-(SP) ;;MOVE THE PC DOWN 
017320 016666 000004 000002 MOV 4(SP),2(SP) :;MOVE THE PSW DOWN 
017326 000002 RTI > ;RESTORE THE PSW 
-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “'TRAP*’' INSTRUCTION. 


: ROUTINE 


017330 017316 $TRPAD: .WORD $TRAP2** 

017332 014636 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

017334 017072 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
017336 017046 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
017340 017106 STYPON ;;:CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
017342 016622 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


017344 015170 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


017346 015120 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
017350 015402 SRDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
017352 coaaes SRDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
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CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0113 Cvo 


176500 973 


3366 37154 
4080* 4107* 4117 41434 


$LS 


44824 4516 
44834 


946 
971 


2351 2422 2650 2699 2907 3273 3343 3409 3988 4138 
752 813 


000001 772 792 


< 





kK 9 
CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 117 
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000002 


786 807 
785 806 


000100 3280 3285 
000200 


1265 1270 2623 
4116* 4120" 41464 
3412 3464* 3468 


3195# 
37134 


104407 
000000 
013736 2244 2377 2608 3307 3473 


000015 
3975 3985 4155 


2556* 2565* 2567 
1126 1158 2832 
2834 2879 3237 


2 2713 2722 28034 
005732 25134 2683+ 





CVDLAAO DLV11- 
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100000 


aternee 


104406 


013750 


010056 
013742 
000020 
000012 
001732 
014314 


000340 


177776 
177776 
000024 
014322 
001262 


J TEST MACY11 30A(1052) 
11-MAY-78 00:00 
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CROSS REFERENCE TABLE -=- USER SYMBOLS 


2312 
1584# 
1037* 
3458 


1576 
3833 


2824 


4075* 
1168 


2465 


4560 
3485 


15854 
38454 


2831 
4778 


2549 


4561* 
3490 


4563* 4566+ 
3498 37164 


3949 3975 3985 
4782 4784 4786 


2170 2193* 


41454 
4129 
40104 


2414 2876 2887 


2309 2546 


2202 


3243 


2644 


SEQ 0115 
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CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0116 


010036 31784 
001260 
000200 


000100 
007536 


2546+ 


177777 1683 1745 
2775 2926 
000006 


001140 1 4336* 4504 
000176 


000010 





CVDLAAO 


DLVI1-J) TEST MACY11 30A(1052) 
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000020 


001266 
010046 


001264 


000001 


010106 


000000 
012560 


012722 
000060 
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1487* 
2528* 


3081* 
31478 


1918 
37728 


SEQ 0117 





CVD 
CVvd 


$TE 
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012502 3526* 3529* 3544% 3546+ 3557* 3564*  3566* 3568 
3594* 3596* 3601* 3605+ 3616 3622* 3625* 3640+ 
3653*  3660*  3662* 3664 3688*  3690*  3692* 3697+ 


012504 3429 3522 3548 3550+ 
37228 
3598* 37238 


3646* 3725# 
3694* 37278 
3382* 3384 3583* 


000001 2608 2814 2841 
013662 


19654 


28084 


15924 


104401 2831 2833 3985 3987 
4160 4162 4310 4311 
4406 4409 4778# 

104402 4161 4163 


4108* 4144# 
2762 3820 


1723 1790 
000100 1309 1323 2048 2439 


000200 1523 1540 
007566 
007646 
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CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0119 


XMIT2S 007726 
XMIT3S 010006 
XOSRV 011046 
X1SRV 011166 


X2SRV 011306 
011426 


42864 
1017 


4422 4514 4539 


3953 3954 


4581* 
SERRFL= 000000 3 1087# 
1127 


Wwe - = SO MV@ 
--OoOoOnwo 
= 


PMO AEN 
Mwn co 
= jw? 


2052 2 
21084 21154 
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CVDLAA.P11 


016142 


0 
000310 
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21178 
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21208 


2121 21278 21324 


3 
39228 


40524 
4510 


4539 
4539 


21454 


SEQ 0120 





On 


ww 
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CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0121 


SFSBAD= 000401 


000170 
000150 
000220 
000400 


000110 


$FSINC= 000210 
$F $LOO= 
$F SNAM= 
SFSNO = 000403 


$FSOR = 000320 
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CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -~ USER SYMBOLS SEQ 0122 


SFSRTN= 000300 5884 3773 3849 3864 3891 4154 4167 
SFSSEL= 000140 5884 
FSUNT= 000130 5884 1137 1161 2447 2449 2867 2871 2883 2891 2905 2965 3226 3230 
seas 3253 3271 3316 3341 3361 3371 3373 3380 3384 3407 3432 3456 
SFSWHI= 000120 5884 1599 1663 1725 2098 2244 2353 2377 2524 2551 2600 
SFSYES= 000402 5884 1105 1147 1206 1218 1234 1251 1270 1293 1309 1326 1345 1367 


SGDADR 001120 9034 
SGDDAT 001124 9054 
GET42 014572 41964 
GTSWR 015170 43114 4784 
HD = 000000 599 
HIBTS 001000 8794 
ICNT 001104 8964 4588* 4589 4591* 4602 
SIFLEV= 177777 5884 11054 11144 11478 11534 1206 12114 1218 12244 12344 1240 1251 12578 


SINTAG 001135 910# 4339 4428 

$1SKO = 000001 11054 1114 11474 1153 1206# 1211 1218# 1224 12344 1240 1251# 1257 12708 
1276 1293# 1299 1309# 1315 1326# 1332 1345# 1351 13674 1373 13834 1389 
1400# 1406 1419# 1425 1439# 1450 14644 1469 15024 1508 1523# 1552 1554# 
1574 1597# 1605 1628# 1633 1644# 1650 16614 1669 16914 1697 1706# = 1713 
17234 =1731 1753# 1759 1770# = §=1777 1787# 1806 18304 1835 18534 1863 18704 
1882 1890# 1900 1923# 1928 1931# 942 19454 1952 2019 2024 20354 2041 
20964 2103 21554 2160 2170# 2176 2209 2214 22424 2251 2276" 22 22984 
2305 23124 2 23238 23554 2362 23754 24228 24624 2508 25228 
2530 25498 2580 2598# 2615 2637# 2642 26464 2652 26544 2659 2661# 2689 
2699#% 2704 2706# 2711 2713# 2720 27228 2749% 2754 2782# 2787 27918 
2797 28114 2838 2841# 2848 2907# 2941 2951# 2963 30224 3032 3273#@ 3294 
33020 14 3343# 3357 34094 62 34684 81 34908 34988 504 35220 


33 34 34 3496 3 
3537 3570# 3585 36184 3633 3666# 3681 37874 3797 38014 3807 38334 3838 
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CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0123 


$ISK1 = 000001 15598 1790# 1799 23264 2347 24654 2506 25674 2578 26084 
29348 2939 29564 2961 33074 3312 34348 3439 


= 000001 : 2496 26694 2675 26804 28214 
001172 


016137 
SLOCTA= 177777 


<b ah ad ed ed cd ed ed ed 
Www & WW 
WAWWMONMN— 
won eK KH OwO-—- NS 
nd ed ed ead cd cn sd cd a nd od ed 
NNAAUUS WWM 
NMHAOAWOA OWN 
mWWNMOAWNVIMONMNDOM 


, 
; 
, 
; 
< 
; 
, 
; 
; 
7 
i 
7 
| 
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CVDLAAO DLV11-2 TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 127 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0124 
3892 3893 4153 4167 4168 4169 
SLPADR 001106 


SLPERR 001110 1290* 1304* 1320" 1337* 1364* 1378+ 
1886* 1986*  2045* 


SLSTCN= 177777 


6 
6 
6 
6 
6 
6 
7 
7 
7? 
7 
7 
7 
7 
7? 
7 


SLSTIN= 000000 


oO 
oO 
— 


—_ 
co 
“ 


ee ee et aed ot od 
MW & & WAP POM A 
aL —-WWORMOLf—@®w 
MIM ONN™NVIW— COON 
— ss ess = = ee es os — —) — 
WANS & HWW PMP 
WIN 
ro 
WWWPRNM — mS 
SNSNROUMOUWO 
C000 WOAH ww 
Mwmm~na & & WAND A ee 
MUIN OD] SIN OAWOUWO 
WE OUI DNUINMONNDS 
ee a et ot ot =o 
MAME & EWAN mp SO 
ONNOWVYIW— OA LOOM 
SS 
MUMS SEWARD 
Ww 
uw 
ee et at ot ot 
MAMAS SWAP Ss Ss 
COVIWO NMOS AH NWOOW 
CODOOMWOUOA —- H-AnNNVOO 





I 10 
CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 128 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0125 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 129 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0126 


4 
$SLSTST= 177777 5884 1105 1107 1109 


1110 1111 1114 1137 1138 1147 1149 1153 1161 
1206 1208 1211 1218 1220 1224 1234 1236 1240 1251 1253 1257 1270 
1272 1276 1293 1295 1299 1309 1311 1315 1326 1328 1332 1345 1347 
1351 1367 1369 1373 1383 1385 1389 1400 1402 1406 1419 1421 1425 
1439 1441 1450 1464 1466 1469 1474 1475 1502 1503 1508 1523 1525 
1531 1532 1533 1545 1546 1550 1552 1554 1556 1559 1561 1567 1569 
1570 1571 1574 1576 1579 1580 1597 1602 1605 1628 1629 1633 1644 


MN 
x 
> 
oo 
Nm 
a 
a 
oOo 
Nm 
~ 
o 
Nm 
Nm 
Pa 
oa 
= 
Mm 
= 
o 
uw“ 
Nm 
=~ 
oa 
~™~ 
Nm 
a 
oa 
co 
Nm 
> 
~ 
Oo 
m 
ed 
™ Ns 
~~ 
mM 
> 
™N~ 
“ 
Nm 
= 
~™~ 
oa 
Nm 
Pe 
~~ 
co 
Nm 
> 
co 
~m 
p «] 
OrFrommamceood mec “Yoo 
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CVDLAAO DLVI1-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 130 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0127 


$SLSTTA= 000000 


001226 
001232 
001236 
001242 
001174 


001224 


4473* 44778 
4451 
4454* 4466 4470* 


001225 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 131 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -~- USER SYMBOLS SEQ 0128 


SMTYP2 001231 
MTYPS 001235 
MTYP4 001241 
MXCNT 016620 
NESTL= 177777 


$NSKO = 000300 


000210 


000210 


000110 

001154 

000001 15874 
28054 


017270 
017272 4 4 4709+ 
016604 4590 4599# 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 132 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0129 


oat se§ 1039* 4184* 4185* 4193 4206 4586 

001170 4289 4357 4406 4422 4539 

015402 4787 

greet 

015522 4788 

ateenre 

000010 

014614 

akeeeer 

177777 22634 38264 3875# 38834 
eeeeke 

016342 

000127 1018 1021 1051 


000253 38714 38794 
177777 
016550 
000430 
167400 


001216 
000000 
177777 


STAGNU= 000257 


1 15 
15714 1 16024 628 16464 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 133 . 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0130 


16664 16924 1708¢ 17284 17544 
17 1794 1 


STEMP = 000300 


2872 
28994 





CVDLAAO DLV11-J TEST MACY11 30A(1052) 


CVDLAA.P11 


001200 
001160 
001146 


001144 
000023 


001152 


000251 


11-MAY-78 00:00 


30-JUN-78 


11 
10:10 PAGE 134 


CROSS REFERENCE TABLE -- USER SYMBOLS 


6 
17724 


29238 


39234 
1361+ 


28094 


47824 
11384 


1789# 


18034 


1 
18314 


SEQ 0131 


29504 
29948 


17 
18 


7ee 





an 


C11 
CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 135 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -~- USER SYMBOLS SEQ 0132 


18924 1924# 19338 19478 20204 20378 
2103 22 


000250 


000254 


000253 


000126 
001004 
001102 
015630 


keteee 


001220 


001244 
001246 
016354 
000001 





CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 


CVDLAA.P11 11-MAY-78 00:00 


SSARGC= 000000 3773#@ 38644 41544 
SSBYTE= 000402 1105# 11474 12064 


SSFLAG= 000001 11054 1107 11144 


$$FROM= 000000 14924 15374 16184 
21454 21634 22004 
38184 

$$GET4= 000000 41984 

$$LOC = 012710 1106# 1107 11484 
1253 12714 1272 
13844 1385 14014 
1525 15454 1546 


2656 
2707# 2708 oe 
29344 2935 29528 


36234 
36624 
3695# 


1234# 


2823 
29578 


11 
10:10 PAGE 136 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3626# 
36704 
37024 


2 
29664 


2 
30234 


2 
32314 


SEQ 0133 


3647# 
3690# 
38804 


13834 


2 
32548 





E 11 
CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 137 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS 


32748 33034 33084 
3 3 3411 


$SLOCN= 000000 


0 
000001 


2 2 
27748 29258 
017271 4745# 


006262 


SEQ 0134 
site” teey 3363 


34694 
3572 


2 2 
29544 33054 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 138 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0135 


006276 


* 
.! 
4 
5 
1 
1 
1 
1 
1 
1 
of 
1 
5 
1 
1 
wd 
1 
5 | 
| 
.f 
1 
5 
5 
.1 


010766 
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CVDLAAO DLVI1-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 139 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0136 


011040 35324 
011044 35378 
011160 35804 
003066 14694 

35854 


003776 
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CVDLAAO DLVI1-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 140 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0137 


004044 1835# 
18634 
18824 
12244 
19004 
19284 
19424 
1952a 
20244 
20414 
21004 
21034 
12404 
21604 
21764 
22144 


= 017354 8424 856 857# 8624 868 8694 8718 8734 891# 
1 64 099 1106 1107 8 9 3 


46694 
-SASTA= eeeeee 
-$x = 001000 
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CVDLAAO DLVI1-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 142 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -~ MACRO NAMES SEQ 0138 


3589 
1435 


3388 
2144 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-72 10:10 PAGE 143 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0139 


2810 2813 2820 2840 2906 2950 2955 3021 3272 3301 3306 3342 3408 3433 3467 
3472 3489 3521 3569 3617 3665 3786 


ete . S 1104 2645 2790 3441 3497 3800 3832 

1F CON # 

IF .ERR 1# = =1501 1544 1627 1690 1752 1829 1922 2018 2154 2208 2275 2297 2636 2748 
2781 2933 

IF .NO. 4 

INCR 1# = 2255 3875 

INCRU 1# 3867 

INLINE lf 

EAVE i# 

ET hl 078 1081 130 1131 


LOCAL 14 

oop 1# 1473 3783 

SG 1115# 1117 11964 1198 13544 1356 1454# 1456 1587# 1589 1957# 1959 20864 2088 25878 
2589 28524 2854 32024 3204 

ULT 1# 7214 

EWTST 4 7218 1115 1196 1279 1354 1428 1454 1587 1653 1715 1779 1957 2086 2235 
2368 2587 2805 2852 3202 

OLOCA 1# 

POP 14 721# 3889 4474 4475 4656 

PUSH 1# 7214 3864 4435 4437 4458 4615 

REPEAT 1# 1136 2446 2866 2882 2904 3225 3238 3270 3340 3370 3379 3406 3431 

REPORT 14 5884 721% 

RETURN 1# 3835 3839 

ROUTIN 1# 83771 3862 4152 

SAVR14 1# 


COPE 616# 1122 1201 1282 1359 1431 1459 1592 1656 1718 1782 1965 2092 2238 2371 


SELECT 1# 

SETPRI 1s 721# 1286 2002 2123 2216 2400 2875 2982 3256 3368 
SETTRA 4770# 4779 4780 4781 4782 4784 4786 4787 4788 

SETUP 14 721# 1002 


K 11 
CVDLAAO DLVI1-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 144 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -~ MACRO NAMES SEQ 0140 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 145 
CVDLAA.P11 11=-MAY-78 00:00 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0141 


2892 





M11 


CVDLAAO DLVI1-J TEST pope bh 30A(1052) 30-JUN-78 10:10 PAGE 146 


CVDLAA.P11 11-MAY-78 00: 


1492 1537 
2200 2268 


2476 


CROSS REFERENCE TABLE -- MACRO NAMES 


1618 1682 1744 1820 1842 1913 
2290 2629 2739 2760 2774 2925 


2484 


SEQ 0142 
2145 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 147 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE =~ MACRO NAMES SEQ 0143 





: 12 
CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 148 
CVDLAA.P11 11=MAY-78 00:00 CROSS REFERENCE TABLE =~ MACRO NAMES SEQ 0144 


ed ed ed ed ed ed ed ed 
Aum & SWRI 


1 

12 
13 
13 
14 
15 
15 
16 
16 
17 
18 
18 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 149 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -~ MACRO NAMES SEQ 0145 


3053 


2 
3 
1 
3 
1 
1 
1 
1 
1 
21 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 150 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0146 


3801 3833 
14 


2449 3456 
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CVDLAAO DLV11-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 151 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0147 
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CVDLAAO DLVI1-J TEST MACY11 30A(1052) 30-JUN-78 10:10 PAGE 152 
CVDLAA.P11 11-MAY-78 00:00 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0148 


-SDIV 
. SEOP 5884 4171 
- SERRO 5884 4485 
- SERRT 
- SMULT 
. SPOWE 
- SRAND 
- SRODE 
- $SRDOC 
- SREAD 
- SR2AZ 
- SSAVE 
- $SB2D 
- $SB20 
- $SCOP 
- $SIZE 
- SSUPR 
- STRAP 
- STYPB 
- STYPD 
- STYPE 
. STYPO 
-840CA 
-1170 


- ABS. 017354 000 


ERRORS DETECTED: 0 


CVDLAA,CVDLAA=SPMAC.SML,SYSMAC.SML,CVDLAA.P11 
RUN-TIME: 105 112 7 SECONDS 
RUN-TIME RATIO: 996/226=4.4 
CORE USED: 42k (83 PAGES) 





